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INTRODUCTION 

The purpose of this document is to provide a formal, organized set of information 
concerning the development status of the Alabama Resources Information System 
(ARIS) as of September 1976 (termination of active NASA financial involvement). 

This report includes, as attachments and appendices, the following items: 


1. A series of computer source language programs, 

2. Flow charts related to each of the computer programs to provide 
greater ease in performing future change, 

3. Listings of the variable names, and their meanings, used in the 
various source code programs, 

4. Copies of the various user manuals which have been prepared through 
this time. 


GROWTH OF ARIS 


Earlier reports (ARIS: Alabama Resources Information System, dated 30 June 1974 
and Development of Alabama Resources Information System ARIS, dated 1 May 1976) 
document the early concepts of the system and some of the progress towards a 
reality of the system. 

Figure 1 lists the original (early 1974) set of work elements leading towards 
the ARIS concept. It is doubtful that any of these elements can be or ever 
could be deemed completed. In order to provide the State with a truly effec- 
tive set of computer aided planning procedures, a periodic review of the 
evolving system should be made by considering these work elements. 

Figure 1: Work Elements 

1. To participate in joint analysis and/or to do separate analysis of the 
land use mapping and data prepared by various organizations, including 
but not limited to: 


a. USDA 

b. NASA 

c. USDI 

d. RPDC 

e. ORNL 


(MYADS Program) 
(ERTS Program) 
(RALI Program) 
(Various programs) 
(Various programs) 


2. To support State Planning Agency activities to update, identify and 
fill in data gaps and revise inventories of environmental, geological, 
and physical conditions which influence the desirability of various 
types of land use. 


3. To support State Planning Agency efforts to identify areas with 

general limitations for development; i.e., based on soil composition, 
slope, flood plain, proximity to unique or fragile environment, etc. 
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4 To support State Planning Agency efforts to analyze the efforts of 
other stat'es and their land use system development to help insure 
that Alabama develops a system capable of meeting current and pro- 
jected data processing needs. 

5. To support State Planning Agency efforts to analyze data needs for 
land use planning and computer storage, retrieval and manipulation 

of data. 

6. To support State Planning Agency efforts in system development, data 
input procedures, and demonstration activities. 

7. To place system development emphasis in at least two (2) demonstration 
areas within the State of Alabama. 

8 This effort will be the initial step toward an earth resources infor- 
mation management system for Alabama which will be developed through 
the cooperation of the State Planning Agency, Auburn University, and 

NASA. 

Figure 2 illustrates the addition of several more specific work 
accomnanied an extension of the contracts for ARIS development. These latter 
elements have been essentially completed. The first work element has been 
temporarily resolved by basing the ARIS processing at Auburn 
irexSected a more perknent base will result from computer system conso ida- 
lio^efforts being fnade by the State. The second work element fs somewhat 
revised by agreements and contracts with the Alabama Development Office (ADO) 
whereby ADO has served as the finder/supplier of data and The contractor has 
provided system development and. processing. It is expected That work element 
three will be satisfied with the submission and acceptance of this document. 

Thp fourth work element was satisfied by State purchase of the spatial or geo- 
graphic information processing software from the 

Institute (ESRI) of Redlands, California. It should be noted that this acquired 
software is essentially identical to that in use by the State of Maryland. 

Recent Department of the Interior review of existing spatial information pro- 
c«finq sSsSs resulted 1q the staten^nt, “The Maryland Automated Geographic 
Information System (MAGI) has the most comprehensive capability in existence 
for statewide Spulatlon of spatial data." The same statement can be pro- 
perly made concerning ARIS. Completion of the last work element is a" bP*'"" 
with MSFC. On-site reviews have been made by MSFC personnel in the P^st. 

Future visits are more than welcome as much pride exists concerning accom- 
plishments to date 

Figure 2: Work Elements 

1. The contractor will work with the Alabama Development Office and other 
State offices with the goal of identification of a state-owned or 
leased and operated computer system which could be used for operational 
implementation of ARIS after this contract and NASA%direct support 
has terminated. The milestone for accomplishment of the transfer to 
State operation will be July 31, 1976. 
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2. The contractor will be responsible for obtaining 

information on the Initial Test Site (as defined in Item 5 of the 
original Work Statement) i and encoding it into the ARIS memory. 

3 The contractor will assign highest priority toward the transfer of 
the ARIS from NASA support to State of Alabama support by the Mile- 
stone date of Julv 31, 1976. Full documentation will be furnished 
two copies: a reproducible set to MSFC and a set to the Alabama 

Development Office. 

4. The contractor shall acquire geographic use? t?Iining 

programs together with documentation. P>^ovide re ated user training 
and adapt the software for use on the contractor’s IBM 370/155 com 

puter. 

B The contractor-developed ARIS Computer System will be su^ected to 
f?Ll "Stance inspection by MSFC at the contractor’s facility. 

Since this report is relatively voluminous, copies of previously submitted 
f Sal 5erll3ScJ,lntat1on is not included. Documentation and listings of 
(he sonwarracq5”ed from ESRI have previously been submitted and are not 
included in this report. 

Fiaure 3 contains a list of the work elements which led to the development of 
thfcenLrbased portion of ARIS. The requirements dealing with the popula- 
tion and housing information processing procedures were J'^tually separate 
sets of tasks. Because of their similar natures and task ponding, they h 
been combined in the figure. The census based portion of ARIS, which is 
called ARISCENS, is tabulation rather than spatially oriented. While 
" i^diSg 0 ? cens;i material is. keyed to 3 ^» 9 raph 1 c areas un ess a ho^ 
geniety of population distribution is assumed, a truly spatial arrangement 
is not particularly suitable. 

Figure 3: Work Element Description 

1. General Objectives 

Thp opneral obiective of this project is to develop a computer operated 

data^retrieval system utilizing the 1970 U.S. Census of ^thiT^ 

Tanes and the 1970 U.S. Census of Housing Summary Tapes. In brief, this 
svstL must access the 1970 U.S. Census of Population 4th Count Summary 
Taoe Population, File B, and the 1970 U.S. Census of Housing 4th Count 
SuLary Tape, Housing. File B; display 

Census County Divisions; and search the aSd 3 below 

data characteristics. This system is described further in 2 and 3 below. 

2. The Data File 

The data file will consist of the U.S. Census of Population 4th Count Sum- 
marv Tape Population File B, which contains over 1 ,000 data items 99 
se^iratffabSlat^ons for each of the 450 Census County Divisions in Alabama 
and the U S Census of Housing 4th Count Summary Tape, Housing File B, 
which cont^ns dlta items in 158 separate Tabulations for each of the 
county census divisions. Descriptions of contents 
can be found in 1970 Census User's Guide: Part II . U.S. Bureau of the 
Census, U.S. Government Printing Office. 
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3. The Program 
a. Functions 

The program developed to access the data file must perform the following 

functions: 

(1) Display in standard tabular form with appropriate geographic codes, 
titles, row and column headings, the data items in any Tabulation 
in the data file for any CCD. 

(2) Aggregate across any number of specified CCDs, the data items in 
any Tabulation. Display should be in standard tabular form and 
contain the geographic codes of those CCDs comprising the aggre- 
gation. 

(3) Search the data file for those CCDs in which specific data items, 
expressed as a percent of the base population, exceed a value 
assigned by the individual user. The display will contain the 
title of the data item searched for, the value assigned, the geo- 
graphic codes of those CCDs meeting or exceeding the assigned 
value, and the value of the data item for each CCD. EXAMPLE: 

Persons 65 Years Old and Over as Percent of All Persons 
CCDs with 8.5% or More 


CCD Code Percent 


001 

005 

8.7 

017 

020 

9.6 

023 

015 

9.5 

105 

005 

8.5 


b. Users 

It is intended that this system be used by persons with little or no 
knowledge. Thus, the program in final development must be simple to 
use via remote batch entry terminal. Installation of the product 
programs on an interactive remote terminal is to be accomplished 
after ARIS hardware is acquired and under funding of the APIS con- 
tracts. 

The documentation included as a part of this report completes the work 
elements set forth in Figure 3. The ARISCENS software is the only ARIS soft- 
ware completely developed by the contractor. While some minor and experi- 
mental geographic software were locally developed, the usual spatially ori- 
ented processing procedures were acquired. An example of minor geographic 
software is the procedure under development to convert an acquired data base 
which contains terrain elevation data to a format acceptable for input to the 
ARIS data base. It is expected that several similar software tasks will 
emerge as data base acquisition efforts continue. Only minor, user-oriented 
instructional documentation will accompany development of these procedures. 
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ARIS DOCUMENTATION 

A set of eight programs was’ necessary to the preparation and processing of 
the ARISCENS data bases. Six of the eight programs were of a single use nature 

and related to data base and headings file creation. These six will receive 

future use if the 1980 U.S. Census produces fourth count summary file struc- 
tures and table heading files identical to those for the 1970 U.S. Census. 
Should any changes occur in the 1980 and later census output structure, these 
six programs must be revised or rewritten. Since their existence is key to 

the creation and use of future census data bases, full documentation of these 

items of software has been performed and included in this report. Appendix A 
contains a listing of the variable names (and their definitions) used in these 
six single use ARISCENS procedures. This appendix also contains flow diagrams 
and source code listings for the same programs. The six single use programs 
and their functions are: 

1. CREATE_ISAM4BP. This program creates an Indexed Sequential Access 
Method (ISAM) data base containing population data. 

2. CREATE_ISAM4BH. This program creates an ISAM data base containing 
housing data. Since this program and the previous program (1) are 
essentially identical, only a single flow diagram is included in 
the appendix. 

3. CENSHEAD. This program creates an ISAM data file containing table 
headings for editing and describing output from the population data 
base. 

The next three programs deal with output headings for the housing data 
base. Because of significant peculiarities in the heading data base, two 
major preliminary steps were necessary to ready the raw headings for ISAM 
file structuring. 

4. MODIFY_REC. This program segment converted pairs of 80 character 
records into single 136 character records. 

5. FIX_THIS. This program corrected a record sequence flaw discovered 
in the original census headings file. 

6. HOUSHEAD. This program creates an ISAM data file containing table 
headings for editing and describing output from the housing data base. 

The two items of ARISCENS data base processing software are documented in 
Appendix B. Since the two processing. procedures, CENSLIST and HOUSLIST are 
essentially identical (differ only in output table structure), only a single 
flow diagram has been included. Appendix B is organized similarly to Appen- 
dix A, namely, a listing of the variable names and their definitions, the flow 
diagram, and finally a source code listing of the software. 

Appendix C contains the formal abstract (MSFC Form 2568) for the pro- 
cedures set forth in Appendix B. Appendix C also contains a listing of the 
hardware and software (Program Description) necessary for use of the ARISCENS 
data base processing procedures. 
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Appendix D is ’intended to include copies of several system user bulletins 
published to provide detailed instructions to those using the ARTS procedures. 
The present set of user instructions are contained in three separate publica- 
tions. Their titles and purpose are as follows: 


1. "An Introduction to ARIS" 

This booklet provides an introductory overview of the ARIS concept. 
ARIS development has been divided into several stages or phases. 

An explanation of each is included. 

2. "Procedures for the Manual Preparation of ARIS Geographic Data" 

This booklet provides detailed user instructions concerning the many 
steps necessary for properly encoding material for inclusion in the 
ARIS geographic data base. In addition, the computer procedures 
necessary to proper generation of single variable data files are 
presented. 

3. "Use of the ARIS Census Data Base" 

The contents of this booklet complete the documentation of the 
ARISCENS processing procedures started in Appendices A, B, and C of 
this report. Complete user/computer interface instructions form the 
bulk of this booklet. This final documentation includes listings 
and examples of all necessary job control language steps and instruc- 
tions, procedures for bringing the data base to an on-line status, 
instructions for preparing the request sets required to perform table 
building, table aggregating, and table searching operations, maps and 
tables showing the location, names and codes of the County Census 
Divisions in Alabama, and explanations of the user and system error 
messages which might be received. In short, this booklet represents 
a complete set of user documentation. 


ARIS PRESENTATIONS 

Appendix E contains a set of viewgraph or slide masters which can be used 
to prepare presentations covering the concepts of ARIS. The series of cartoon 
drawings and other diagrams are intended for use with audiences having general 
interest in spatial information systems. Detailed information for system users 
is contained in the published and yet to be published manuals. 


FUTURE CONCERNS 

Material contained in this and previous reports covers only the start of 
the ARIS task. Very few data bases exist as of this writing. Much emphasis 
is yet needed on the collection and encoding of data base material. More work 
is also required to reach the goal of simplifying the user procedures required 
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for use of the geographic portion of the system. Real ability in computer use 
remains a somewhat restrictive prerequisite to proper interaction with the 
geographic procedures. A need remains for access to an inexpensive digitizer. 
Manual methods or contracted digitization are and will remain very expensive. 

The pessimistic or concerned tone of the previous paragraph should not be 
used to cast gloom on the ARIS project. Much has been accomplished and is now 
usable by informed decision-makers. A serious immediate need is that of pub- 
licity. The Alabama Development Office is acutely aware of ARIS and is making 
some use of its potential. They have succeeded in interesting one regional 
planning authority to prepare data base material for system processing and 
planning aid. Other planning agencies need to become interested. Auburn's 
Agricultural Engineering personnel developed an early interest in the system 
and are building a set of data bases for their needs. ARIS retrieval and 
modeling procedures will be used for investigating the feasibility of agri- 
cultural irrigation in this engineering study. Another possible user is the 
personnel of the Alabama Criminal Justice Information Center. Demonstration 
meetings are scheduled to begin shortly. 

As can be noted, a realization of the ARIS availability and potential is 
slowly growing. However, this knowledge needs to be disseminated elsewhere, 
both in and out of Alabama. 



OUTLINE OF RECORDS AND VARIABLES FOR HOUSLIST HEADINGS 
(MODIFY_REC, FIXJHIS. HOUSHEAD) 

Tape IED13, DLIST4H has records which consist of headings 
for houslist tables. These records are 80 characters long 
and there are a variable number of records that provide 
headings for each table. This program takes these many 
records for each table and condenses them to a single 
keyed record forming an indexed sequential file on disk 
(IED13.MHEAD). This Data Set is accessed by a houslist 
program which creates the (IED13.MHEAD) tables. A record 
on the readings file takes the form as follows: 


OFFSET 

OFFSET 

1ST ROW 

2ND ROW 

HEADING 

1 

HEADING 


OFFSET 
1ST MAIN 
OR COL 
HEADING 


POINT TO 


2ND ROW 

END OF 

1ST ROW 

RECORD 

i 

heading 

heading 


1ST MAIN 

2ND MAIN 

& COL 

& COL 

HEADING 

HEADING 


Key is the table number. 

There is only one record per table. 

HEADINGS creates an indexed sequential file. 


VARIABLES FOR HOUSLIST HEADINGS 

ADDIT: Length of previous record (ROW) needed to add on 

length of continuation 

BLANKS: Total string of blanks to pad heading 

COL OR ROW: If C0L_0R_R0W=0 , then record is a main heading 

~ or column heading. If C0L_0R_R0W=1 , then record is a 
row heading 


COLHEAD: String consisting of column heading 










L: Length of column, main, or row heading 

LEG: Current length of the string of row heading lengths 

(ROWLEN) 

LEN: Total row heading lenc-ths are added to main and column 

heading lengths 

M_C_HEADING: String consisting of main and column headings. 

All are accumulated here for entire table 

M_C_LENGTH: An array whkh contains the full length of the 

main and column headings for each part of the table 

MEANHEAD: String consisting of the main heading 

NEWJDFFSET: Final offset which is concatenated on REDONE 

NEWL: Add length from continuing row heading on to previous 

length 

NEXT_OFFSET: Points to next length for addition of RLEN 
giving offset into the record 

NUM_BLANKS: Number of blanks needed to pad the heading to 
have a length of 132 

NUMJDFFSETS: Number of offsets contained in the record 

NUM_PARTS: Number of parts or sections in that particular 

table 

OFFSET: Curt -•’t length which RLEN is added to get NEW_OFFSET 

rOWL: Running total of the length of the individual row 

heading lengths 

RECHEAD: Completed record with offsets and headings written 

on disk (IED13.DHEAD) 

RECLEN: String consisting of all lengths of row, main, and 

column headings 

RECORD: Tape input record (IED13,NLIST4H) 

REDONE: String of final offsets into the record 

RLEN: Length of string of lengths (to be added to each 

individual length to get offsets into the record) 

ROWHEAD: String consisting of cumulative rowheadings 

ROWLEN: Cumulative string of row heading lengths 


SUPPRESS; Variable used to set a flag so that after row 
headings are found once, the others will be suppressed 
(on tape IED13.NLIST4H for each part of the table the 
row headings occur; in the record we're creating the 
row headings appear only once) 

TABJO: Table number of each heading record on tape 

IED13.NLIST4H. Every record has a table number 
and there may be many records per table (on tape 
IED13.NLIST4H) 


VARIABLES FOR CENSLIST HEADINGS (CENSHEAD) 

INPUT - the name of the input data set. 

HEADINGS - the name of the output data set. 

TABLE KEY - the number of the table for which headings are being created. 
MESSAGE - bytes 4 through^79 of the input record. 

TYPE - the 80th byte of the input record. 

KEY - the table number used as the key to the index sequential file for 
that table. 

LAST_TYPE - the type of the last input record read. 

BEGIN - a pointer array indicating the starting position of new lines in 
the string TEXT. 

LINE COUNT - the number of lines of headings generated for a table. 

BLNK - blank characters used to pad the headings. 

BLANK - blank characters used to pad the headings. 

TEXT - the character string into, which the headings for a table are stored 
MAXJCOLS - the maximum number of output columns available. 

SENTENCE - the complete input record. 
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CREATE ISAM4BH&P: 



READ FIRST (OR NEXT) 
CENSUS RECORD 


JL 




[ NEXT (OR FIRST) 
RECORD TYPE 




HIT = NO 




CALC NEW COUNTY # 




CHOP OFF HEADER 


BUILD KEY*] 



READ THE NEXT n CENSUS RECORDS 
FOR THIS RECORDJYPE, BUILDING 
THE ISAM RECORD FROM THEM 


i 

f 

YES 

REMOVE ALL THE 

PADDING FIELDS 

L 


i 

f 

LAST_KEY = CURRENT_KEY 


1 

MAKE ALL NUMERIC FIELDS A | 




HAKHt 1 tKb LUNb ^ 


LAST KEY = CURRENT KEY 


HIT = YES 


The Census Bureau fourth count data files (both housing and population file B) 
have data for a single CCD spread over several records. These programs create 
one (varying length) record for each county-CCD-record type, eliminate padding 
fields, and make each numeric field a uniform eight characters long. 










































PROGRAM MODIFY_REC 1st STEP 


Heading records on the tape (IED13.NLIST4H) are 80 characters 
long and 2 records are needed to form a usable record. This 
program reads 2 records and puts them together making one 
record of a length of 138. characters. This provides easier 
manipulation for the program that creates the indexed 
sequential file of headings. 



The new file consisting of records with length of 136 is 
put on a temporary data set and input to the headins program 




FIXJTHIS: 


The headings tape data set (IED13.DLIST4H) had a misplaced 
record. This program corrects the order of the records. 




INITIALIZE 
VARIABLES TO 
ZERO AND BLANKS 


READ A 
RECORD 


GET TABLE 
NUMBER 


TABLE NUMBER=TO 
PREVIOUS TABL^ 

v. number 


DETERMINE 
OFFSETS INTO 
THE RECORD FOR 
MAIN AND’ 
COLUMN HEADS 


CONCATENATE 
ROW OFFSETS 
WITH MAIN AND 
COLUMN HEADS 


DETERMINE 
FULL LENGTH 
OF OFFSETS 


ADD LENGTH 
OF OFFSETS TO 
EACH OFFSET 





















:o: 













IS4M4BP SOURCE LISTING 


( STRINGRANGE I ; 

CREATE 4BP: PR0C OP T I CMS ( M A 1 N ) ; 

OECLARi ISAM4BP FILE RECORD SEQUENTIAL KEYED ENVIRONMENT IINOEXEOI ♦ 
(HITBITIDINITdB), 

RECORD_TYPE ( 5 ) CHARI2) I NIT I ' 01 * » * 02* ♦ ' 03* t * 04* » * 13* ) » 
SUaSEQUENT_REAOS( 5) FIXED BINI17) INlT((414tU» 

CHOP 0FFI5) FIXED BIN(17) IN I T (I 4» 11 2 » 1 736J t 
TYPEIB PA0D1NG(2) FIXED BIN(17) INIT{ 2032,21441 » 

OTHER PADDINGIB) FIXED BIN(17) I NI T( 1 1 2 , 224, 336, 448, 560, 672 , 

784,8961, 

( I , J, K) FIXED BIN(17) , 

(LAST_KEY,VARY_KEY,DUMMY_KEY) CHARI7) , 

DUMMyIrEC RIT(8) INITI (8)* 1*B), 

VARY_REC CHARI 10200) VARYING, 

COUNTY PIC'99*, 

POP.REC CHARI2040)) STATIC, 

THeTr COUNTY PIC'999' DEFINED POP_REC POSl 1091 , 

CCD CHAR (3) DEFINED POP_REC P0SI112), 

TYPE CHARI2) DEFINED POP_REC P0SI118); 


ON ENDFILE(CaUNT4BP) BEGIN; 

PUT FILEISYSPRINT) LIST 

stop; 

end; 


( •♦ISAM4BP CREATED* ); 


ON ERROR SNAP BEGIN; ON ERROR SYSTEM; 

PUT FILEISYSPRINT) LI ST I SUBSTR I POP.REC , 1 , 120 )) ; 

PUT FILEISYSPRINT) OAT A I VARY_KEY , LAST^KEY I ; 

END; 

DO WHILE! IB); 

DO J = 1 TO 5; 

IF HIT THEN DO; READ F I LEI C0UNT4BP ) INTO IPOP^RECI; 

COUNTY = THEIR_COUNTY / 2 ♦ 1; 

VARY_KEY = COUNTYl ICCDI ITYPE; 

VARY_REC = SUaSTRIP0P_REC,121) ; 

END; 

IF RECORD.TYPEIJ) = TYPE 

THEN DO; DO K = 1 TO SUBSEQUENT_READSIJ ) ; 

READ EILEIC0UNT4BP) INTO IPOP^REC); 

VARY.REC = VARY_REC| IPOP.REC; 

END;” 

IE RECORD.TYPEIJ) = *13* 

THFN DO; DO I = 1 TO HBOUNDI TYPE13_PADDING, 1 ) ; 

VARY REC-SUBSTR(VARY_REC,1, 

TYPE13_PA00ING(I I) 

I I SUBSTRIVARY_REC,TYPE13_PA00INGnM-9» ; 
END; 

DO I = 


2016 TO 2088 BY 8; 


29 


ISAM4BP SOURCE LISTING 


VARY_REC-SUBSTR( VARY_REC,l » 1)11 

SUBSTRIVARY_REC» 1*9); 

END; 

END; 

ELSE DO; DO ! = 1 TO HBOUNOl OTH ER_P ADD 1 NG , 1 ) ; 

VARY_REC=SUBSTR{ VARY_REC»1 , 

OTHER.PADOINGl I I ) 

I ISUBSTR (VARY_R EC, OTHER_P ADDING! I)+9) , 
END; 

DO I ^ 0 TO 472 BY 8; 

VARY_REC = SU0STR( VARY_REC,1, 1)11 

SUBSTR! VARY.REC, 1+9) ; 

END; 

END; 

VARY_REC=SUBSTR (VARY_R EC, 1, LENGTH! VARY_REO- 

CHQP.OFF! J) ) ; 

WRITE FILE! ISAM4BP) FROM ! V ARY_R EC ) KEYFROM ! VARY_KEY ) ; 
LAST_KEY = VARY_KEY; 

HIT = IB; 

END; 

ELSE DO; OUMMY_KEY = SUBSTRI VARY_KEY , 1 , 5 ) I I RECORD.TYPE! J ) ; 

/« for COMPLETENESS 

WRITE F ILE! ISAM4BP) FROM ! DUMMY_REC ) KEYFROM! OUMMY_K EY ) ; 
4 / 

last_key = dummy.key; 

HIT = OB; 

END; 

end; 

end; 

END CREATE_4BP; 

//GO. C0UNT4BP DD OSNAME= lEO 13 .C0UNT4BP , Dl SP=OLD 
//G0.ISAM4BP DO DSNAME = I E013 . I S AM4BP , D I SP= ! ,CATLG ) , 

// LABEL=EXPDT=75300,SPACE=!CYL,I95,1 ),RLSE) , 

// VOL=SER=USER03,UNI T=DI SK, 

// 0C8=!RECFM=VB,DS0RG=!S,LRECL=9435,BLKSIZE=9439,BUFN0=3t 

// Kf:YLEN=7,RKP=4) 


ISAM^BH SOURCE LISTING 


( STR INGRANGE ) : 

CREATE 4BH; PROC OP T I ONS ( MA I N ) ; 

DECLARE ISAM4BH FILE RECORD SEQUENTIAL KEYED ENVIRONMENT (INDEXED) t 
HIT BIT( n TNITdB), , 

RECORD.TYPE ( 6 ) CHAR(2) I NI T ( • 01 • t ' 02* » ' 07 ' t ' 08* f * 09* t • 10* I » 
SU8SEQUENT_REA0S( 6) FIXED 8INI15) INIT ( 6t 5t 6t9t<>t6) » 

CHOP 0FF(6) FIXED BIN(15) I NI T ( 912 t 296 ♦ 952 t 520 t 1416 » 232 ) * 
TYPeT_PA0{2) FIXED BINU5) INI T ( 1 1 2 1 232 ) ♦ 

(I, J, K) FIXED BIN(17), 

( LAST_KEY , VARY.KEY «DUMMY„KEY) CH ARI7) t 
DUMMY_REC BIT(8) I NI T ( ( 8 ) * 1 * B ) >. 

REC CHAR(1680), 

VARY_REC CHARI 11760) VARYINGt 
COUNTY PIC’99* , 

THEIR_COUNTY PIC'999* DEFINED REC P0S(109)» 

CCD CHARI3) DEFINED REC P0S(II2), 

TYPE CHARI2) DEFINED REC POSdlB); 


ON ENDF ILE(C0UNT4BH) BEGIN; 

PUT FILE(SYSPRINT) 

stop; 

END; 


LIST(»4ISAM4BH CREATED* 


f 


ON ERROR SNAP BEGIN; ON ERROR SYSTEM; ^ • 

PUT FILE (SYSPRINT) L I ST ( SUBSTR ( REC 1 1 f 120 )» ; 

PUT F ILF ( SYSPRINT ) DAT A ( VARY_KEY , LAST_KEY ) ; 

CLOSE F ILE( ISAM4BH) , F I LE I C0UNT4BH) ; 

END; 

DO WHILE (IB); 

DO J = 1 TO 6; 

IF HIT THEN DO; READ F I LE ( C0UNT4BH ) INTOIREC); 

COUNTY = THEIR.COUNTY / 2 + 1; 

VARY_KEY = CnUNTYHCCOllTYPE; 

VARY_RFC = SUBSTR(REC »I21); 

END; 

IF RECORO_TYPE( J ) = TYPE 

THFN DO; DO K = I TO SUB SEQUENT_R EADS ( J ) ; 

READ FILEIC0UNT4BH) INTOIREC); 

VARY_REC = VARY_REC I 1 REC; 

END; 

VARY REC = SUBSTR(VARY_RECt ItLENGTHf VARY.REO- 

CHOP^OFFIJI); 

IF RfcCnRO_TYPEIJ) = *01* 

THEN DO; DO K = 1 TO HBOUNDI TYP El_P ADt I ) ; 

VARY_REC-SUBSTRI VARY.RECtlfTVPEl.PAOiKl ) 
iT SUBSTR(VARY_RECtTYPEl_PAD(K»+9l ; 
END; 
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DO K = 0 TO 160 BY 8; 

VARY_REC=SUBSTR( VARY_REC»lfKJ || 

SUBSTR(VARY_REC,K+9) ; 

END; 

END; 

WRITE FILE! ISAM4BH) FROM ( VARY_REC) KEYFROMI VARY_KEY) ; 
LAST_KEY = VARY_KEY; 

HIT = IB; 

END; 

ELSE DO; DUMMY.KEY = SUBSTRI VARY_KEY, 1, 5) 1 I RECOR0_TYPE( J I ; 

/♦ FOR COMPLETENESS 

WRITE FILE( ISAM4BH) FRaM(DUMMY_RECI KEYFROMI OUMMY_KEY) ; 

\ 

LAST.KEY = DUMMY.KEY; 

HIT = OB; 

END; 

END; 

end; 

END CREATE.4BH; 

//G0.C0UNT43H DD OSNA ME= lED 13 .C0UNT4BH,0I SP=OLD 
//G0.ISAM4BH DD OSNAME= I E013 . IS AM4BH t 01 SP=( tCATLG) t 
// I UNIT=SYSOA, 

// ' LABEL =EXPOT=76365,SPACE=(CYL,{200i)r 

ri OCB=(ReCFM=VBtOSORG=IStLRECL=ll420,8LKSIZE=ll424t 

if KEYLEN=7tRKP=4) 

// 














1 ■ ■ ^ 





ii 


t 
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CENSHEAD 

POPULATiaN HEADINGS SOURCE PROGRAM 

1/STEPl EXEC ZAP 
/i/SYS IN 00 * 

'IED13.04HEAD 

//ONE EXEC PLILFCG»PARM=*ATR,XREF» 

//SySIN 00 * 

TITLES: PROC OPTIONS(MAIN) ; 

/♦ THIS PROGRAM MOVES THE DAULIST ^ POP HEADERS FROM TAPE TO DISK, ♦/ 
/« (SO THAT THE DAULIST ^ POP PROGRAM CAN MOVE IT AGAIN - HOM STUPIOI*/ 
DECLARE (OL IST4,DHEA0ERS) RECORD, 

CARO CHAR (80); 
on I = 1 TO 1 502 ; 

REAO FILE(0LIST4) INTO (CARO); 

WRITE FILE(DHEADERS) FROM (CARD); 

END; 

/♦ THIS PORTION OF THE PROGRAM IS TO PATCH UP THE CD'S DATASET. */ 

DO I = I TO 9; 

READ FILE(SYSIN) INTO (CARO); 

WRITE FILE (DHEAOERS) FROM (CARO); 

end; 

PUT SKIP(2) FILE! SYSPRINT) EDIT (•♦♦♦♦ DAUL I ST-4 HEADER FILE SUCCESS 
FULLY CREATED* ) (C0L(10),AI; 

END TITLES; 

/GO. SYS IN DO 


•WORKER* INCLUDES MEMBERS OF THE ARMED AND ALARMED FORCES. 


3 ANY GIVEN UNIT MAY BE TALLIED IN MORE THAN ONE INCOME CATEGORY, ACTUA 


j 9 LACKING ONE OR MORE OF THE FOLLOWING FACILITIES- HOT PIPED MATER, FLU 

I TOILET FOR THIS HOUSEHOLD ONLY, OR BATHTUB OR SHOWER FOR THIS HOUSEHO 

! ONLY, OR NEITHER, OR BOTH. 

r //G0.DLIST4 DD OSNAME=IED13.DLIST4P,OISP=OLO,LA8EL=I4,SL), 

r // V0L=REF=IED13.0LIST1 

r //GO, DHEAOERS DD OSNAME= lEO 13 .04HEA0, 0 1 SP= ( ,CATLGI , 

r /!/ UNIT = DISK,LABEL = EXPDT»75300,SPACE-ITRK, (8,4),RLSEI, 

! ft 0C8=(RECFM»FB,LRECL=8b,BLKSIZE»5A00) 

I ft EXEC PLIFCLG 

I //SYSIN DD * 

I (SUBSCRIPTRANGE,STRINGRANGE>: 

ij NASA; ' 

PROCEDURE OPTIUNS(MAIN); 
i* ON ERROR PUT DATA; 

|1 ON ENDFILEI INPUT) BEGIN; 

li TYPE = *3* ; 

ii GO TO TYPE..I; 

|: END; 

|i /* LINF^CnUNT INDICATES THE CURRENT LINE, ♦/ 

!! /♦ BEGIN(LINE_C0UNT + 1) IS THE STRING OFFSET ♦/ 




POPULATION HEADINGS SOURCE PROGRAM 



/♦ OF THE NEXT LINE. */ 

DECLARE HEADINGS FILE RECORD SEQUENTIAL KEYED ENVIRONMENT ( INDEXED) 
INPUT FILE SEQUENTIAL, ’ 

TABLE_KEY CHARACTERO) DEFINED SENTENCE POSITION! 1), 

MESSAGE CHARACTER(76) DEFINED SENTENCE P0SITI0N(4), 

TYPE CHARACTER(l) DEFINED SENTENCE POS ITIONI80) , 

KEY PICTURE»999' , 

LAST.TYPE CHARACTER! 1 > , /♦ L AST_T YPE= • 4* INFERS NO 

RECORD HAS BEEN PREVIOUSLY READ */ 
8EGIN(60) PICTURE *9999' INITIAL(l), i 

(L,LINE_CQUNT INI T I AL ( 0 ) , M ) FIXED BINARY, 

BLNK CHARACTERI5) INITIAL!' *1, 

BLANK CHARACTER 1132) INITIAL 1!132)» •), 

TEXT CHARACTER(3000) VARYING, 

SENTENCE CHARACTER (80) ; 

TYPE='4'; /♦ REFRIGERATOR 

LOOPJ 

LAST_TYPE=TYPE; 

READ FILE! INPUT) INTO! SENTENCE ) ; 

L = INOEX!MESSAGE ,BLNK)-l; 

IF tTYPE'.** 2'&LAST_TYPE=' 2* ) | ! TYPE* • 9 • £Lrt ST_TYPE = U» ) -THEN 00; 
M«l33-MOO!BEGIN(LINE_COUNT+l) ,132) ; 

IF M*^*133 THEN DO; 

TEXT*TEXT| I SUBSTR!BLANK,1,M) ; 

BEGIN!LINE_C0UNT+1 )=8EGIN!LINE_C0UNT+1)+M; 

end; 

1 END; 

IF TYPE='2» then GO TO TYPE_2; 

IF TYPE*'9' THEN GO TO TYPE_9; 

IF TYPE='8* THEN GO TO TYPE_8; 

IF TYPE*’ ' THEN GO TO TYPE.O; 

GO TO TYPE_1 ; 

TYPE_8: TYPE_0; 

IF SU8STR!SENTENCE,l,l)-=' ' THEN DO; 

TEXT=TEXT| I SUBSTR(BLANK,1,1 ) 
BEGIN(LINE_C0UNT*1) = 
BEGIN(LINE_COUNT+l )+l ; 

END; 

TEXT=TEXT| | SUB STR! SENTENCE , 1 , L+3 ) ; 

IF LAST_TYPE = » 8» THEN BEG I N! L I NE_C0UNT + 1 ) = BEG!N! L INE_COUNT + l ) 

♦L+3; 

ELSE DO; 

LIN£_COUNT=LINE_CQUNT«-l; 

BEGIN!LlNE„CGUNT4-i)*BEGlNCLINE_C0UNT)«>L 

+3; ■ ■ ' ■ 

END; ■ ■ ■ 

GO TO LOOP; 

TYPE.l: 

IF LAST.TYPE -,= »4' THEN 00; 

DO KJ=l TO LINE_C0UNT-H; 
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8EGINIKJ ) = BEGIN{KJ»+4*ILINE.C0UNT+ll; 

END; 

TEXT=SUBSTR(STRING(BEGINI,lt4’*' 
(LINE_COUNT+inl ITEXT; 

WRITE F iLEIHEAOINGSI FROMITEXT) 

KEYFROMIKEYI ; 

IF TYPE = *3* THEN GO TO ENO_PROG; **■ | 

LINE_COUNT=0; 

BEGINIl 
END; 

LINF_C0UNT = L INE_CaUNT + U 

IF TABLE_KEY=' • THEN GO TO FOOTNOTES; 

KEY=TA8LE_KEY; 

TE X T=SUaSTR (MESSAGE, I, L) ; 

BFGINd INE_COUNT + l ) = BEGINILINE_C0'JNT)+L; 

GO TO loop; 

TVPE_?: 

TEXT = TEXT| I SUB S TR{ MESSAGE, I, u; 

RFGIN(L INF_COUNT + l) = BEGINILINE_COUNTi-l)+L ; 

GU TO LOOP; 

TYPE.9: 

TEXT=TEXT| I SUBSTR( SENTENCE, 1,791 1 1 SUBSTRI BLANK, I, 53); 

BEGIN(L INE_COUNT+n = BEGrNILINE_COUNT+ l)*l32; 

GO TO LOOP; 

footnotes: 

LINE_COUNT=0; ' 

DO !<J = 143l TO 1475; 

READ FILEIINPUT5 I NTOC SENTENCE ) ; 

END; 

KEYi=»128'; 

TEXT=SENTENCE; 

BEGIN(LINE_C0UNT+U = 81; 

DO WHlLEtlB); /* ENDFILEI INPUT ) TERMINATES THIS LOOP ♦/ 

P EAO FILE! INPUT) INTO! SENTENCE I ; 

TEXT=TEXT| ISENTENCE; 

8EGIN{LIN6_COUNT + l)=BEGIN(LINE.COUNT+l)*r80; 

END; ■ ii 

END.PROG: 

END NASA; • 

//GO, INPUT DD 
//GO. HEADINGS DO 
// 
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HOUSING HEADINGS SOURCE PROGRAM 

// EXEC ZAP 
//SYS IN OD ♦ 

IED13.MHEA0 

//STEPl EXEC PLILFCIG,PARM=* ATR,NEXT,XREF* 

//SYS IN DO * 

MOOIFY.REC; 

PROCEDURE OPTIONSIMAINl ; 

DECLARE COUNTER FIXED BINARYISII; 

DECLARE OLOREC FILE INPUT RECORD; 

DECLARE NEWREC FILE OUTPUT RECORD; 

DECLARE M0D4 CHAR ACTER ( 80 ) ; 

DECLARE M0D3 CHAR ACT ER ( 80 ) ; 

DECLARE MODI CHARACTER (63) ; 
declare M0D2 CHARACTER(6S) ; 

DECLARE TOGETHER CHARACTER t 136 ) ; 

OPEN FILE(OLOREC) INPUT; 

OPEN FILE (NEWREC) OUTPUT; 

COUNT ER=0; 

again: 

IF CQUNTER>4092 THEN GO TO STOPIT; 

CO:UNTER=COUNTER+l; 

READ FILE (OLOREC) INTO (M0D3); 

READ FILE (OLOREC) INTO (M0D4); 
M00l=SU8STR(M0D3,l,68) ; 

M002=SUBSTR(M0D4,1,68); 

TOGETHER = MO0l MM0D2; 

' WRITE FILE (NEWREC). FROM ( TOGETHER); 

GO TO AGAIN; 

STOPIT; 

CLOSE FILE (OLOREC); 

CLOSE FILE ( NEWREC ) ; 

END MODIFY_REC; 

//GO.OLDREC 00 OS NAME = lEO 1 3 . SL I ST4H, D I SP=OL D, VOL=REF-I EDI 3. SL I ST4H 
//GO.NEWREC DD DSNAME=RCTEMP » 01 SP= (NEW t PASS ) , 

// DCB=(LRECL-136,8LKSIZE=1360,RECFM=FB) »UNIT=SYSDA» 

// SPACE=(TRK,( lOaO) ,RLSE) 

//STEPl EXEC PLlLFCLGtPARM=»ATR,NEST,XREF*,REGrCN=128K 
//SYS IN DO* 

HEADINGS: 

PRnC"DURE OPTIONS! MAIN) ; 

ON ERROR PUT DATA; „ _ . 

DECLARE BLl CHARACTER(l) INITIAL!' •), 

ONE CHARACTERd! INIT IAL( • 1' ) » 

NINE CHARACTERd) I NI TI AL ( * 9 • ) , 

(CONT, Z,ZERa,CaL_GR_ROW) CHARACTERd) INIT lAL ( * O' ) » 

lIlEADl CHARACTER! 132) VARYINGf 

)TEA02 CHARACTER! 132) VARYING, ; . 

COLON CHARACTERd) IN IT I AL I ' : ’ ) , 

CL FIXED BINARYC31 ) , 

^ TAB CHARACTER! 3) INITIAL !• I'J, 
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TA3NO CHARACTER(3)» 

FOOT.LEN PICTURE •9999* INITIAL(0)» - 

FOOTNOTE CHAR ACTERI 27001 VARYING* 

RECORD CHARACTER! 1361 » ^ 

BLANKS CHARACTFR(132) VARYING, 

INOM PARTS, L) FIXED BINARYI3U INITIAUII, 

(FLAGl, FLAG2,L ENG, NEKT_OFFSET,RLEN, SUPPRESS I 
f FIXED BINARYOII INITIAHO), 

M_C_LENGTH( 10) FIXED BINARYOl), 

BL20 CHARACTERI20) INITIAL!* »* 

BL4 CHARACTER(A) INITIAL!* *), 

( ADDIT , OFFSET ) CHARACTER 14 ) , 

ROWC PICTURE *999'9* INITIAL!!), 

!NEWL,NUM,NEW_OFFSET) PICTURE *9999*, 

( SAVEI T , ROWLEN ,ROWHEAD,RECLEN, LEN ) CHARACTER! 500) VARYING, 
RECHEAD CHARACTERI2996) VARYING, , ^ 

( REDONE , MAI NHEAOf COL HEAD, M_C_HE AGING, SAVEARE A) 

CHARACTER(2000) VARYING, 

BL2 CHARACTER12) INITIAL!* *1, 

3L30 CHARACTERI30) INITIAL!* 

3L10 CHARACTER(IO) INITIAL!* *), 

KEYIT PICTURE *999* INITIAL!!) , 

DECLARE RECOHD RECORD SEQUENTIAL KEYED ENVIRONMENT! INDEXED) 
OUTPUT: ' ' 



OPEN FILE (RECORD!) INPUTS 
OPEN FILE (RECOHD) OUTPUT; 

FOOTNOTE=": 

HEAOl = * * ; 

HEA02=**; 

ROWHFAO=* * ; 

SAVEAREA=* * ; - 

00 I=! TO !0; 

m.c.length! I )= o; 
end; 

:LEN="; 

recheao=**s 

R0WLEN=*000!* 5 V- ■ 

again: 

BLANKS^* * : 

read file (RECORD!) INTO I RECORD); 

TABN0=SU8STR (RECORD,!, 3); 

IF TA8N0-i=TA8 THEN DO; 

IF TABNP-999 then DO: 

ROWL=*0009*: 

NUM=ROW L*-F OOT„LEN ; 
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RECHEAO=ROWL| |NUH|||FOOTNOTE; 

WRITE FILE(RECOHD) FROM CRECHEAD) KEYFROM (KEYIT); 

DATA; 

GO TO S TOPI T; 

END; 

num*rowl; 

DO I=l TO NUM_PARTS-l; , 

NUM=NUM+M_C ..LENGTH! I > ; 

LEN=LEN| INUM; 

END; 

DO I=l TO NUM_PARTS-l; 
r RECI-EN=R0WLENMLEN; 

END; 

RECLEN=RECLEN| IBL2; 

RLEN= INDEX! RECLEN,BL2»; 

NUM 0FFSETS=!RLEN-l)/4; 

NEXT_OFFSET=l ; 

DO 1=1 TO NUM_OFFSETS; 

0FFSET = SUBSTR(RECLEN,NEXT_0FFSET»4I ; ,, 

NEW_OFFSET=OFFSET<-RLEN-l; 

REOONE = REDONE I 1 NEW.OFFSET; 

‘ NEXT_0FFSET=NEXT.0FFSET+4; 

■ end; 

RECHEAD=REOONE| IROWHEADI |M_C_HEADING; 

WRITE FILE (RECQHDI FROM IRECHEAD) KEYFROM !KEYITI 


keYit=keyit+i; 
BLANks=*»; ^ 
HEAOl='*; 
HeAD2=''; - ' 

CONT=*0'; 
REiCHEAO=* • ; 
LEN='*; 

FLAG1=0; 

ROWHEAO=*'; 

Zs*0’; 

.ROWLEN=*OOOl* ; 
REOONE = » • ; 
MiilNHEAD = ' » ; 
’>R0WL=1 ; 
NUM_PARTS=l; 

c6lhead=*'; f- 
s6ppress=o; 
Coll6N=o; 
pOinter=o; 

L=l; 

MAINLEN=0; 

SAVEAREA=»'; 

Mj:_HEA6iNG=v ; 
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DO I=l TO 10; 

M_C_L6NGTH( I )=0; 

END; 

END; 

V TAS^TABNO; 

IF TA8N0=993 THEN DO; 

MA INHEA0=SU8STR( RECORD* 5 ♦ 132) ; 
FOOTNOTE=FOOTNOTE||MA inhead; 
FOOT^LEN=FOOT_LEN+l32; 

PUT DATA; 

GO TO AGAIN; 

END; 

COL 0R_R0W=SUBSTR(REC0RD»4,1) ; 

CnNT*SUBSTR(RFX0RD*5, 1) ; 

IF COL.OR.ROW SUPPRESS THF^^DO; 

SUPPRESS^COL.DR^ROW; 

IF COL 0R„R0W=0 THEN GO TO STOP; 

IF Z=*2» THEN FLAGl=l; 

NUM_PARTS=NUM.PAR-TS + l ; 

STOP! 

END; 

IF cOl OR_ROW-i= ZERO THEN GO TO RHEAD* 

SAVFAREA=SU0STR( RECORD,?, 130) ; 

CL=INDEX( SAVEAREA, COLON); 

IF CL- = 0 THEN DO; 

HEAD1=SUBSTR(SAVEAREA,1,CL); ■' 

HEAO2=SU0STR( SAVEAREA,33,98) ; 

NUM_BLANKS=132-CL ; 

DO I=l TO NUM_BLANKS; 

c>LANKS = BLANKSl I ' **. 

END; 

HEAOl=HEADl I IBLANKS; 

BLANKS=' • ; 

num_blanks=3a; 

00 1=1 TO NUM_0LANKS; 

BLANKS =6LANKSl I » * ; 

END; 

HiEA02=HEAD2l IBLANKS; 

MAINHEAD=HEA01 I IHEAD2; 

M C HEADING=M_C_HEAOINGUMAINHEAO; 

mIcIlENGTHI NUM_P ARTS) =M_C«LENGTH( NUM_PARTS) +264; 

GO TO AGAIN; 

END; I 

L=IN0FX(SAVEAREA,8L30) ; 

IF L=l THEN GO TO COLUMN; 


HOUSING HEADINGS SOURCE PROGRAM 

IF L=0 THEN L=132; 

MAINHEAD= SUBSTR ( SAVEAREA, 1 ,L) ; 

NUM_BLANKS=132-L; 

DO 1= I TO num.blanks; 

BLANKS=BLANKS| I • *5 
END; 

M C HEADING=M C HEADINGl 1 MAINHEAOl | BLANKS? 
mIc_LENGTH(NUM_PARTS»=M_C.LENGTH(NUM_PARTS 1+132 
GO TO AGAIN; 

COLUMN: j 

SAVEiARE A= SUBSTR ( RECORD 1 38 1 99) ; 

l=inIoex( savearea»bl30) ; 

IF L=0 THEN L=99; 

COLHEAD=SUBSTR(SAVEAREA, ItL) ; 

NUM_BLANKS=133-L ; 

DO I = l TO NUM_BLANKS; 

blaNks=blanks| 1 • '; 

END; 

M C HEADING=M_C_HEADING| I COLHEADI (BLANKS? 
M_C_LENGTH( NUM^PARTS) -M_C_LENGTH( NUM.PARTS ) +132 

GO TO again; 

RHEAD: 

IF FLAGl=l THEN GO TO AGAIN; 

Z=»2»; 

SAVEIT=SUBSTRIRECORD,7,l29) ; 

L=INDEX( SAVEIT,BL4) ; 

SAVEAREA=SUBSTR( SAVEIT. l,L-l) ; 

IF L=l THEN SAVEAREA=* »? 

IF L = 1 THEN ROWL=RGWL+l; 

ELSE 

ROWL=RUWL+(L-l ) ; 

IF FLAG2=2 THEN DO; 

llOWLEN^ROWLENl |3L2; 

LENG=INDEX(ROWLEN,BL2) ; 

ADDIT=SUBSTRt RnWLEN,LENG-4,4) ; 

I^EWL = ADDIT+(L-1) ; 

ROWLEM=SUBSTR (ROWLEN, l,LENG-5) ? 
ROWLEN=ROWLEN| INEWL; 

ROWHEAD=ROWHEAD| (SAVEAREA; 

IF CONT='l* THEN FLAG2=2? 

ELSE 

FLAG2=0; 

GO TO AGAIN? 
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ROWLEN=ROWLEN| IROWL; 

RnWHEAD=ROWHFAO| I SAVEAREA; ; 

IF CONT=»l‘ THFN FLAG2-2? 

GO TO again; 

STOP it: 

END HEADINGS; 

//GO. RECOROl DO OSNA ME= &6TE MP , D I SP= ( OLD, DEL ETE ) 

//‘Gn.RFCOHO DO OSN AM E= I EDI 3 .MHE AD , D1 SP= ( NEW f C ATLG) t 

//' SPACE = (CYL , ( 1 » 1) f RLSE I , UNI T=D I SK,DGB= < RECFM=VBtKEYLEN=3. 

// 0S0RG=IS.,RKP = 4, 

// BLKSIZe=2996) tLABEL=EXPDT=76300 
// 
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//STFPl EXEC PLILFCLG, PARM=*ATR,N£xr,XREF' 

//SYS IN CD => 

fix: 

PRCCECURE DPTIGNS (MAIN) ; 

DECLARE RECCRCS FILE INPUT PECCRD*. 

DECLARE CCLNTER FIXED RINARYCil); 

DECLARE NEWREC FILE OLTPCT RECCRD; 

DECLARE (REC»F IxeC_RECQRC) CHAR AC TER ( RJ ) ; 

CCUNTER=C; 

NEXT_REC: 

READ FILE (RECORDS) INTO (RFC); 

CCUMER = CCUNTER + l ; 

IF C0LNTER=AC91 THEN DC; 

GET CATA( F1XEC_REC0RD) ; 

REC=FIXbC_RECGRC ; 

WRITE FILE (NEWREC) FRCM (REC); 

GET CATA(FIX£C_RECORO); 

R£C=FIXEC_REC0RD; 

WRITE FILE (NEWREC) FRCM (REC); 

6G TC STOP; 

ENG; 

WRITE FILE (NEWREC) FRCM (REC); 

GC TC NEXT_REC; 

STOP: 

ENC FIX; 

//GO.SYSIN CC * 

FIXEC_RECCRD=*999G 

I j 

FIXEE_REC0RC= '• 

//GC . RECCRCS CC DSNAME = I EC13 .ML I S TAH t D I SP = CLD » VCL = RFF= I ED 1 3.ML ISTAH 
//GO. NEWREC CC DSNAME= I ED 1 3 . SL I S TAH ,01 SP= ( NF W ♦ C ATLG ) ,L ABEL= ( 1 , SL ) , 
// UNIT=TAPE,CC8=(RECFM=F,BLKSI/E=eO) 

// EXEC ZAP 
//SYS IN CO ♦ 

IEC13.MHEAC 

//STEPl EXEC PLlLFCLG,PARM='ArR,NExT,XREF* 

//SYSIN CD * 

MOCIFY^REC: 

PROCEDURE OPTIONS (MAIN ) ; ' 

DECLARE COUNTER FIXED BINARY(31); 

DECLARE CLCREC FILE INPUT RECORD; 

DECLARE NEWREC FILE QLTPLT RECORD; 
declare MOCA CHARACTER! eO ) ; 

DECLARE M0C3 CHAR ACTER ( 60 ) ; 

DECLARE MODI CHARAC TER ( fc 8 ) ; 

DECLARE M0C2 CHARACTER ( 68 ) ; 

DECLARE TOGETHER CHAR ACTER ( 1 36 ) ; 

CPEN FILE(CLCREC) INPUT; 

OPEN FILE (NEWREC) CLTPLT; 


CCLNT6R = ^ ; 


/iG/ilN; 


IF CCIN THEN GO TC. STOPIT; i 

CCLNTEP=CCUNTER+l; 

READ FILE (OLCREC) INTO IWOD3); 

READ FILE (CLCREC) INTO (MODA); 
f/Ori = SURSTR(NCD3,l,t8); 

NiOL2 = SL)BSTR(ROOA, l,c6) ; 

TCC-ETHFR=RGC1| ll«OC2; 

ksRITF. FILE (NEWREC) FRCf' ( TCGETHER); 
GO 1C AGAIN; 


STOP IT 


CLCSE FILE (CLCREC); 

CLOSE FILE (NEWREC); 

/l/GC.OLCREC CC CSNAV^=IEC13.SLIST^h,DISP = OLDtVOL = REF = IEDl3.SLISTAH 
/l/GC.NFWREC CC C SN AN E = C & T E (^ R » D I SP = ( NEW , PA S S ) » 

// CCE= { LR6CL = I 36t ELKS I ?E= 1360*RtCFM=F8 ) f ONI T = SYSCA, 

// SPACE = ( TRK , ( 1C , 1 ?) ,RLSE ) 

//STEPl EXEC PL IL FCLG » PARM= • A TR uNE ST t XREF * f REGI CN= 128K 

//SYS IN CC « 

HEADINGS: 

PROC6CURE CPT ICNS(NAIN) ; 


CN ERRCR PLT DATA; 

DECLARE HLl CHAR ACT F.R ( 1 ) INITIAL.!' ')♦ 

CNE CHARACTER(l) IN 1 T I A L I ' I ' ) . 

MNF CHARACTER(l) IN I T I AL I • 9 • ) ♦ 

(CCNT f Z * Z ERO tCCI OR_Rnw) CHARACTER ( 1 ) IMITIAK’Q )* 

HEADl CHARACTER (T 32 T VARYING* 

HEAC2 CHARACTER! 132) VARYING* 

CCLCN CHARACTER!!) IN I T I AL ( ' : ' ) » 

CL FIXED f>INARY(31)» 

TAB CHARACT6R(3) INITIAL!' l')» 


TAENG CHARACTER! 3 ) * 

FCCT_L EN PICTURE *9999 • INI i I AL ! C ) » 
FCCTNCTE CHARACTER !270C ) VARYING* 


RECCRD CHARACTER ! 136) * 

BLANKS CHARACTER ! 132 ) VARYING* 

!MN_PARTS*L) fixed eiNARYOl) INITIALID* 

! FLAG 1 *FLAG2 *L ENG *NEXT_CFF SET, RLEN* SUPPRESS) 
FIXED 8INARYI31) IMTIALIO* 

NLC_LENGTh! 10 ) FIXED BINARYI31), 

Bl2C CHARACT6RI20 ) INITIAL!' 


BL^ CHARACTER! A) INITIAL!' '), 

!IaCCIT, OFFSET ) CH ARACTER ! A ) , 

R:CWL PICTURE '9999' INITIALll), 

! N£V»L , NUN ,t\tW_CFF SET) PICTURE '9999'* 

ISAVE IT ,RGWLEN,ROWHEAD ,RECLEN,LEN) CHARACTER ! 500 ) VARYING, 
RFCHEAC CHARACTER!2996)_VARYif‘iG.ti^^^^ 



CHftRACTERtZCCj) VARYING, 

6 L 2 CHARACTERI 2 ) INIFTALI' ’), 
8 L 3 C CHAPACTEROO ) INITIALI* 

BLIC CHARACTER ( 10 ) INITIAL!' 

KEVIT PICTURE '<599 ' INITlAL(l), 
RECCRCl INPUT RECGRO; 

DECLARE RECCED RECGRO SEQUENT I AL KEYED 
CLTPLT; 


ENVIRONVENT! INDEXED 


OPEN FILE (PECCRDl) INPUT; 
OPEN FILE (RECCHD) GUT PUT; 


FiCCTNCTE = 


HEADl=''; 

HEAD2= • • ; 

RCWHEAC= • • ; 

SAVEAREA = • ' ; 

DC 1=1 TC 1C; 

w_c_length( n=c; 
ENC ; 

LEN=" ; 

RECHEAD=''; 

RCWLEN= *CCC1 » ; 


AGAIN: 

BLANKS= • * ; 


READ FILE (RECORD 1 ) INTO (RECORD); 

TABNO=SUfiSTR (RECORD, 1 , 3 ) ; 

IF TABNC-' = TAB THEN DC; 

IF TA 8 N 0=999 THEN DO; 

ROWL= 'C.:C 9 • ; 

NLR=RCKL+FCOT_LEN ; 

REChEAD=ROtvL I INUR I IFCGTNCTE; 

WRITE FILE(RECOHD) FRGK (REDHEAD) KEVFRGV (KEYIT); 

JUT DATA; 

GC TC STOPIT; 

END; 


NUR = 

cc 


00 


rcwl; 

= 1 TC NUR_PARTS -1 : 

NUN = NUR + R_C_LENGTH ( I ) ; 
LEN=LEN| INUN; 

end; 

1=1 TG nur_parts-i; 
reclen=rowleM Ilen; 
end; 

RECLEN=RECLEM |BL2; 
RLEN=INCEX(RECLEN,BL2) ; 
NUK_CFFS£TS=(RLEN-1)/A; 

NEXT aFFSET=l; 


DC 1=1 TC NUN.CFFSETS; 

CFFSET=SLBSTR (RECLENfNEXT_CFFSET,A) ; 
NEW_CFFSET=OFFSET+RLEN“l; 

RECCJNE = REECM-| |NEW_CFFSET; 
NEXT_0FFSET=NEXT_CFFSET+4; 
i ENC; 

PECHEAC=RECGNE I iRCWHEACl | R_C_HEAC ING ; 

WRITE FILE (RtCOHD) FRCR (RECHEAD) KEYFRC^' (KEYIT); 


KEYIT=KCYIT+1; 

BLANKS.= • ' ; 

FEAC1="; ,, 

FEAC2="; ! 

CCM=*C; 

RECHEAD=«'; 

L£N="; 

FLAGl=C; 

RCUFEAD=' ’ ; 

2='C; 

RCWL6N='0C01' ; 
RECCNE="; 

(«A INFEAC= • ’ ; 

RCWL=1; 

NLR_PARTS=l; 

CGLFEAC=>'; 

SUFPRESS=3; 

CCLtEN=0; 

PCINTER=0; 

Lfl; 

RiMNL5N = 0; 

SAVEAREA=* ' ; 
^*_C_FEACING= ' • ; 

CC 1=1 TO 10; 

^_c_LENGTFi n=o; 

END; 


E\c; 

T AiB = rABNC; 


IF TABNC = ';98 THEN CO; 

yAINFEAC=SUBSTR(RECQR0,5, 132) 
FCCTNCTE=FCCTNOTE II KA INHEADS 
FCGT_LEN=FC0T_LEN+132S 

PUT data; 

GC TC AGAIN; 

ENC; 

CCL„0R_RCW=SLRSTR (RECORD, A, 1 ) ; 

CCNT = SUeSTR(RECGRC,5, I ) ; 



iTOP 


IF CGL CR.RCW -= SUPPRESS THE^ DO; 
^TiPPRF ''=CGL QR_ROW; 

IF CClIoRi^ROWs^O THEN GO TO STOP* 
IF Z=’2' THEN FLAGl=l; 

NUP^PAR I S = NUK_PARTS+ 1 * 

ENC; 


IF COL OR_ROW-. = ZERO THEN i GO TC RHuAC. 
S AVEArIa^ SI BS TR ( RECORD *? f 13C ) ; 

CL=INCEX (SAV BARE A, COLON ) ; 

TF fLt— C THEN DC; » 

HEAD1^-SLBSTR( SAVE AREA* IfCL); 
HEAC2 = SUCSTR(SAVEAREA,33*Gfl) *, 

NUF eLANKS=132-CL ; 

DO 1 = 1 TO NUf'_RLANKS; 

, BL ANK S-=BLANK S 1 1 * '? 

^ ENC; 

head l = HEACll I BLANKS; 

blanks="; 

NUP_ELANKS=3A; 

DC 1 = 1 TO NU^'_BLAl^^KS; 
blanks=blanksi I • 

END ; : 

H£AC2 = i-EAC2| 1 blanks; 

GO TC again; 
end; 

L= I N C E X ( S A V E AR E A » BL 30 ) ; 

IF L=1 TEEN GO TC COLUMN; 

IF L=0 TEEN L=132; 

MAINHEAD = SUBSTR( SAVEaREA, l»L) ; 

fvUM BLANKS = 132-L; 

00 1= 1 TO NLM.BLANKS; 

eLANKS=ELANKSi 1 ’ '5 : 

.EN-C; 

GO TO again; 


S/S.^EAR E A = SL fi STR (RECORD *38 ,9S ) * 

L=iNDEX(SAVEAREA, 8 L 30 ) ; 

IF L = 0 TEEN L = '5R; 

COLEEAD=SUBSTR( SAVEAREA*l*L) * 









NL^' BLANK $ = 13 3-t; 

CC 1 = 1 TC MJB.PLANKS ; . , 

i;LANKS = eLANKSl I ’ ' ; 

ENC'; 

t/ r hF£CING = N C hFACINGl ICnLhEAOl Iblanks; 

^:c;Ll^G{MNUpyARTS)=r.C.LeNCTH(NUI«.P«><TS)*l32i 

GC TO AG A in; 

BEAG:- ' ' . ' ■'« 

F FLAG1 = 1 TI-EN GC TC AGAIN; / 

/. = • 2 • ; 

SAVEIT = SUHST« (RECCRCi? tl29) ; i 

L=1NDEX( SAVEIT »PLA) ; 

SA\)'CAR^A = SlBSTR(SAVEIT*lfL--l); 

!F L=1 TBEN SAVEAREA=* ' ; 

IF L = 1 TEEN RCKL = POViL+l; 

ELSE 

!>CWL = BCIriL + (L- 1) » 

IF FLAG2=2 TFEN CC; 

RCKLEN=RCKLEM I8L2; 

Lt^NG= INCFX (RCWLEN fBL? ) ; 

ACCII = SLHSTR (R0V<LENtLtNG-A,4) ; 

nev.l = accit + (l-d; .. 

ROWLEN = £LBSTR(RCVnLEN, I TLENG-fj) » 

r1)V*LEN = ROVnLEM INEKL; 

RCViFEAC = RCWheACl ISAVEaREA; 

IF CCNT=*1* THEN FLAG2=2; 

ELSE 

FLAG2=C; 

GC TC again; 

ENC; 

i RGWLEN = RCKLEM I ROViL ; 

RCWHE AC = BCWFtACl I.SAVEAREA V 
IF CCN T = ' 1 ' THEN F LAG? = 2 » 

GC TQ again; 

TCP it: 

r.r lfrcRri'^Cc”sNSVP = C6TEI«P.ni£P=ICLC, DELETE) 

DSCRG=IStPKP = A, 

PLKS I Zt=29S6 J tLADEL=EXPCT=76 .tC 
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VARIABLES COMMON TO HOUSLIST AMD CENSLIST 


AGGREGATE: global; an array aggragate built from ISAM4BP/ 

ISAM4BH records 

AGGREGATE: REAO_PARM_SET ; a character string whose va;[ue is 
set in the input stream via a GET FILE (iNPUT) DATA 

AGGREGATING: global; a bit variable whose value is set in 

READ_PARM_SET ; used to direct program flow 

ANY TABLE: OUTPUTJTABLE; parameter used when writing tables 

BAD DATA: READ PARM SET; condition signaled when any of the 

- values of the vlriables set in READ_PARM_SET is erroneous 

BASE: global; floating point number Si^en value from th^ 

parameter set; one of the two components of CHARACTERISTIC 

BASE TYPE: Search_4BH; variable set equal to the value of the 

~RECORD_TYPE returned by FIN0_TYPE 

BOUNDS: global; an array aggregate from 

each row vector holds the dimensions and 
?5e beginning of POP_REC/REC_CHAR of the table that ^ 
the row number represents 

BOUNDS ONLY- global; a based structure (BOUNDS JTR) con- 

tiining ROWS, COLUMNS, and TABLE_OFFSET that is overbad 
on the rows of BOUNDS to reduce subscripting 

BOUNOS_PTR: global; a pointer (see B0UNDS_0VLY) 

C WIDE: OUTPUTJTABLE; the number of columns per line 

“ (must be _< 9) 

CATiTYPE: SEARCH_4BH; variable set equal to the value of 

“ the RECORDJTYPE returned by FINDJTYPE 

CATEGORY: global; floating point number given value from 
the parameter set; one of the two components of 
CHARACTERISTIC 

CCD: global; an element of the structure COUNTY_CCDJTYPE 

CCD: READ PARM_SET; a character string whose value is 

set in the input stream via a GEjT FILE (INPUT) DATA 

CCD: SEARCH_4BP/SEARCHJ1BH; numeric variable representing 

the CCD;s in each county 

CCT PTR: global; a pointer (see COUNTY_CCDJTYPE) 




CHAR: TALLY; parameter; a vector element of CHARACTERISTIC 

CHAR_HEADER: SEARCHJBP/SEARCHJBH; character string used 

in labeling output 

CHARACTERISTIC; READJARMJET ; character string composed of 
CATEGORY and BASE 


CHAR HEAD; SEARCH_4BP/SEARCH_4BH; file (keyed, sequential, 
indexed) of characteristics 

COLUMNS: global; an element of the structure BOUNDS OVLY 

COMMAS: READ PARM SET; a character string initialized 

0.0,...“; used to pad the character strings in 
GET STRINGS for arrays; insures that zeroes are entered 
in unused positions of the arrays 

COMPUTED LEVEL: SEARCH_4BP/SEARCH_4BH; the ratio of 

“ CATEGORY TO BASE 

COP: TALLY; cumulative offset pointer; used to index 

ITEMS AND OFFSET for a given characteristic, computed as 


1 + E TABLEJ5EGMENTS (i ,2)*2 

COUNTY; global; an element of the structure COUNTY_CCD_TYPE 

COUNTY: READ_PARM_SET ; a character string whose « 

set in the input stream via a GET FILE (INPUT) DATA 

COUNTY: SEARCH_4BP/SEARCH_4BH; numeric variable representing 

a| county 

COUNTY CCD TYPE: global ; a structure overlaid on rows of 

KEY ARRAY to reduce subscripting; its elemenp are 
use"(f in READ ISAM4BP/REA0_ISAM_4BH as a key to the 
indexed file"ISAM4BP/ ISAM4BH, in various on units, and 
in labeling the output 

COlNTYJiAME; global; an array composed of all county names 

ENC : READ PARM SET; variable denoting column in which the 

end of the'HEADINGS for a particular table is found 

EXIT: SEARCH_4BP/SEARCH_4BH; statement label 

cTNn TYPF * Procedure; used to determine if the specified 

""“-labU is 11-its of the tables which are a 

part of a specified RECORD_TYPE 

FOUND: SEARCHJBH; counts the n^ber of successful searches 

for a oarticular CHARACTERISTIC 




H 
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HEkoER KEY: global; character string used as a key to index 
' table headings in the headings file 

HEADER_POINTER: OUTPUTJABLE; pointer to TEXT 

HEADINGS: global ; file (keyed , sequential . indexed) of 

table headings 

HilD: SEARCH-4BH; variable set equal to the value returned 

by the PROCEDURE TALLY (TOTAL) 

IGNORE: RECORD EXISTS; condition signaled if the table that 

was requested does not exist for a particular record 

type 

.. I ' 

input ; READ_PARM_SET ; input file 

ITEM PTR: TALLY; pointer; contains address of 

"items comprising a given characteristic and their o^^^set 

I from the beginning of the table in which it appears 

ITEMS: TALLY; an element of the structure ITEMS_OVLY 

TTFM«; AND OFFSET: TALLY; a one dimensionaV array; its entries 

rSdiFate the nimber of items that.comprise a character- 
istic and the offset from the beginning of the table 
that they appear 

ITEMS OFFSET: TALLY; an element of the structure ITEMS_OVLY 

ITEMS OVLY- TALLY; based structure overlaid on the rows 
of ITEMS_AND_OFFSET to reduce subscripting 

KEY ARRAY: global; an array aggregate composed of KEY COUNTY, 

" key CCD, and KEYJYPE each of which is given values 
rea7 in from the parameter set 

KEY_CCD: global; an element of the array aggregate KEY_ARRAY 

KEY COUNT''; global; an element of the array aggregate 
KEYARRAY , 

KEYJYPE: global; an element of the array aggregate KEY_ARRAY 

I a<;T RFC- RECORD EXISTS; a character string representing 

LEFT- OUTPUT TABLE; the number of columns <?" a line 
"after 9 rows of a table are fitted to the line; 
left = 131 - (NUMBER OF COLUMNS/LINE)*! 1 

LEN- OUTPUT TABLE; fixed point number used to indicate the 

length of the header text currently being output. 

level: READJARMJET; a character 

in the input stream via a GET FILE UNPUU umih 
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LIMITS: FINDJYPEi denotes the limits of the tables of each 

. REC0RD_TYPE 

LINE: OUTPUTJABLE; an array where the pointers into the 

header record are stored 

HAX CCOSi global; Sot"wil**be’out55tM<i; 

MA*_CHARS: global; initialized to 68 indicating the laxi- 

number of characteristics 

OUTPUT TABLE: PROCEDURE for outputting a table for aggre- 

gating or building a table 

'"Tranlu/UtrSr M'"a‘t ESVKlllal^s? 
a search request 

the number of columns that is to oe piav- 
lowing line 

PROGRAMS ARMS: global ; parameter, character string 

read IpARM SET; procedure where INPUT file it read in order 
"to set parameter values 

. REMSNT^XIST: iStlr/or’fpIrS^ 

Sd’S? tSft the CCD shifted does not exist in the 
county specified 

record biSTS: PROCEDURE for deter jinjno 

“'th^crunij ^pec^^1ed, and"the record you 

are currently working with is a new recor 
rECCRD_POINTER: pointer to current record in the buffer 

stfel; viaT?E? ^fL^^lSS?) Slx 

RECOVER: READJARMJET; statement label 

ROUS; glpba) ; an element of the structure BOUNDSJNLY 






SEARCH: READ_PARM_SET; a character stringwhose w 

set in the input stream via a GET FILE, (INPUT) DATA 

SEARCHING: global; bit variable given value from the para- 

meter set; used to direct program flow 

SEG OVLY: SEARCH 4BP/SEARCH 4BH; based structure overlaid 

“ on the rows of TABLEJEGMENTS to reduce subscripting : | 

SEG PTR: TALLY; pointer; contains address of the ro*^' of | 

“TABLE SEGMENTS corresponding to the characteristic 
I in qu¥stion 

SEGMENTS: SEARCH_4BP/SEARCH_4BH; an element of the struc- 

ture SEGJDVLY 

S TABLE: OUTPUT TABLE; an array of certain table numbers 

“ and the number of columns contained in each table 

SYSPRINT: global; file name 

SUPPRESSION; RECORDJXISTS; a condition signaled if .it^is 

determined that any of the data in a table is suppressed 

TABLE: global; an array aggregate built from ISAM4BP/ISAM4BH ^ 

, records 

TAbLe ARRAY: global; an array aggregate^given values from 

the parameter set indicating the tabiCS requested 

TABLE NUMBER: global; indicates the value of the entry 

currently being worked with 

TABLE iOFFSET: global; an element of the structure B0UNDS_0VLY 

TABLE SEGMENTS: TALLY; a two dimensional array each row of 

which corresponds to some characteristic. The first 
colSmn of eaCh row indicates the table the characteristic 
is found in and the second column indicates how many 
segments of the table comprise the characteristic 

TABLES: READ_PARMJET; a character string who^ is set 

in the input stream via a GET FILE (INPUT) DATA 

TALLY: PROCEDURE returns the SUM of the values of a specified 

characteristic 

TaIxT: global; based character string whose pointer values 

I are given by a SET WHEN a READ is done on HEADINGS 

TN: FIND_TYPE; a parameter 

TOTAL: TALLY; used to sum the values of a particular 
characteristic 


TYPEi global; an element of the structure COUNTY_CCD_TYPE 

TYPE NAME: OUTPUT JABLE; an array of character strings 

giving the full name of each record type 


VALID TYPES: READ PARM SET; an array of character strings 

Initialized tF the"RECORD_TYPES present in fourth-count 

data 

VALUE: TALLY; the value of a specified characteristic that 

is being added to TOTAL 


WHICH TABLE: SEARCH_4BH; an element of the .structure SEG_0VLY 


VARIABLES SPECIFIC TO CENSLIST 

ISAM4BP: global; indexed, sequential, keyed file of fourth 

count population data. 

POP REC: global; based character string whose Pointer 

variable is given by a SET when a read is done on ISAM4BP 

SEARCH 4BP: procedure used when searching for a particular 

characteristic 


VARIABLES SPECIFIC TO HOUSLIST 

ISAM4BH: global; indexed, sequential, keyed file of fourth 

count housing data 


REC: global; based character s^ri/ig whose pointer value is 
given by a SET when a READ is done on ISAM4BH. 

SEARCH 4BH: procedure used when searching for a particular 

cFaracteristic* 


ORIGINAL PAGE IS 
OP POOR QUAIOT 









PARAMETER SET, 


AGGREGATE 
s= 'YES'^ 



5earch='yes’ 


SEARCHING='1'B j 


CONVERT APPROPRIATE 
PARMS TO INTERNAL 
FORM 
















RECORD EXISTS: 



PARAMETERS: NONE 

GLOBAL VARIABLES USED: AGGREGATING, COUNTY-CCO-TYPE, TABLE NW 

ISAM.ABPorH, REC0R0_P0INTER, P0P_REC(or REC), BOUNDS, B0UNDS_PTR 

RETURNED VALUES: 1 or 0, depending on whether or not a record for a 

particular COUNTY-CCD-TYPE ext-;cs. 





PARAMETERS: ANYJTABLE (KE. TAB 

Global variables used: header k 

AGGREGATING, COUNTYJAME, K 
COLUMNS 

RETURNED VALUES: NONE 


GREGATE) 

INGS, TEXT, HEADER PTR, TABLE_NUMBER, 
TYPE NAME. MAX CCDl. KEY TYPE, ROWS, 
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TALLY: PARAMETER; CHAR (a vector element of characteristic; e.g. category) 

GLOBAL VARIABLES USED: BOUNDS, B0UNDS_0NLY, P0P_REC 


' 

TAl rULATE # ITEMS AND THEIR OFFSET TABLE POINTER 
f5r FiSsT SEGMENT OF A CHARACTERISTIC (COP) 



/ — -n 

LOCATE SEGMENT POINTER FOR A CHARACTERISTIC 
GIVING TABLE NUMBER AND NUMBER OF SEGMENTS 


L 

LOCATE # ITEMS & THEIR OFFSET FOR A SEGMENT USING COP | 
— 1 


I 


LOCATE TABLE OFFSET IN ISAM4BP RECORD USING BOUNDS 




TALLY # ITEMS STARTING AT TABLE OFFSET & ITEMS OFFSET 

FROM ISAM4BP RECORD 


/*WEAK SUPPRESSION 
CHECK*/ 





M 

I 

i 

\ 

« 


RETURNED VALUES: A floating joint number representing the tally 

of a particular characteristic. 
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CENSLTST SOURCE LISTING 


(SU83CRIPTRANGE,STRTNGRANGE): 

/ 

PROGR AM_PARMS CHAR(IOO) VARYING. FIXED 3INI15), 

(( aggregating, SEARCHING) BITIl), 

CATEGORY . BAS E. PERCt-NT) FLOAT) STATIC 

^ASED( HEADER POINTER), 

HEA0FR_KFY PIC*999*, 

SEARCH_KEY CHARI 7) , 

((SAM4nP, HEAOtWS. CH4RHEADI PILE RECORD SEOUENTIAL KEVEO 

POR.REC CHAR,9W., 3AS f D( ReMRrROWUR BUFFERSU.i, 

I KEY_ARRAY(MAX_KFYS) CONTROLIED, 

2 KEY^COUNTY PIC'99', 

2 KEY^CCD PIC'999* , 

2 KEY_TYPE PIC»«39» , 

1 ,COUNTY_CCn_TYPE BASEDICCT PTR}, 

2 COUNTY PIC»99» , ~ 

2 CCD PIC'999» , 

2 TYPF PIC‘99«, 


DECLARE C0UNTY_NAME(67) 


LDWI NS* BARBOUR*", •BiBB*',- BLOUNT* * Buf rSr I N I T( * AUTAUGA * , • BA 

• » 'CHEROKEE* ,* CHILTON * , ’CHOCTAW* ’ *n^Ap?c^ * pDTL ER * , *.G AL HOUN * CHAMBERS 
OLRERT* ,* CONECUH* ,* roQsA** • fnv r KirTnlit ^ i 'CLEBURNE* ,* COFFEE* , *C 

AS...DE kalb^.e.^ore? Aif. ''?«‘"’i:«llhans.oalen.dall 


G0S*LRI0Ni'!^MARSHlLL*!lMO8?LFl°'i^^^^ 

.'PICKENS*. -PIKE*. .RAN OLPH^ ^ 

ALLADEGA*,*TALLAP00SA*,'TUSCAI ll' SHELBY* ,* SUMTER *,* T 

STOn.) STATIC; LOOSA , WALKER* ,» W ASHI NGTON ',* WI LCOX* , *W IN 

OECLARE 1 30UN0S_nVLY RASED! BQUNDS_PTR ) , 

2 ( ROWS .CnLUMNS , TABL E OFFSET) FIXED RltviMt;! 

B0UNDS(12r.31 FIXED BimsriNII, 




If If 

3, I, 
I » ' 1 » 


3. 

15, 

A3, 


2, I, 
6 . 2 , 

4 , 1 , 


4, 

18, 

44, 


1 . 1 , 
2. I , 
6 , 2 , 
4. 1, 


0. 

6, 

30. 

48, 


2 , 

7, 

If 

2, 


1 . 

1 . 

1. 

1, 


1 . 

8, 

42, 

52, 







Cfc-'iSLlST SOURCE LISTING 


C. f 

I , 

54, 

2, 

2, 

56, 

27, 

2, 

60, 

12, 

1, 

114, 

3t 

3, 

126, 

6, 

2, 

135, 

2, 

1 , 

147, 

33, 

2, 

149, 

13, 

2, 

215, 

4, 

1, 

241, 

5v 

3, 

245, 

5, 

1, 

260, 

7, 

1, 

26 5, 

10, 

1, 

272, 

7, 

1 , 

282, 

2, 

3, 

289, 

A, 

1 , 

29 5, 

3, 

1, 

299, 

2, 

3, 

302, 

8, 

1. 

308, 

26', 

1, 

316, 

9, 

1, 

342, 

7, 

1, 

351, 

15, 

1, 

358, 

9 , 

1, 

373, 

2, 

1, 

382, 

4, 

2, 

384, 

10, 

2, 

392, 

2i 

2 , 

412, 

4, 

3, 

416, 

5, 

1 , 

428, 

6, 

1, 

433, 

2, 

1, 

439, 

3, 

1, 

441 , 

3, 

I, 

444, 

4, 

1, 

447, 

7, 

1, 

451 , 

7, 

2, 

458, 

4, 

2, 

472, 

9, 

2, 

480, 

8, 

2, 

498, 

4 , 

2, 

514, 

6, 

2, 

522, 

42, 

1, 

534, 

27, 

1 , 

5 76, 

5, 

1, 

603, 

5, 

1 f 

608, 

41, 

2, 

613, 

2 , 

2, 

695 , 

7, 

3, 

699, 

7, 

4, 

720, 

7, 

1, 

748, 

7, 

4 , 

755, 

13, 

2, 

783, 

14, 

2. 

809, 

10, 

2, 

837, 

2, 

2, 

857, 

2, 

2, 

361, 

3, 

2, 

865, 

2, 

2, 

871, 

15, 

1, 

8 75 , 

15, 

1, 

890, 

14, 

2, 

905, 

14, 

7, 

933, 

13, 

3, 

1031 , 

6, 

2, 

1070, 

6, 

2, 

1082, 

8, 

1, 

1094, 

L, 

1, 

1102, 

3, 

4, 

1103, 

2, 

4 , 

1U5, 

2, 

1, 

1123, 

3, 

2, 

1125, 

2, 

1, 

1131 , 

2, 

2, 

1133, 

2, 

1, 

1137, 

if 

1, 

1139, 

2, 

1, 

1140, 

2, 

2, 

1142, 

3, 

1, 

1146, 

3> 

If 

1149, 

2, 

2, 

1152, 

2, 

1, 

1156, 

4, 

4 , 

11584 

2, 

2, 

1174, 

1 » 

1, 

0, 

30, 

2, 

1, 

1, 

1, 

61, 

2, 

1 , 

62, 

2, 

1, 

64 , 

3, 

1 . 

66, 

12, 

1, 

69, 

2, 

1 , 

bl. 

2, 

1, 

83, 

8, 

1, 

85, 

5, 

1, 

93, 

6, 

1, 

98, 

2, 

7, 

104, 

5, 

1, 

118, 

10, 

1, 

123, 

4, 

1, 

133, 

12, 

I, 

13 7, 

14, 

1 , 

149, 

7, 

1, 

163, 

4 , 

1, 

170, 

14, 

2, 

174, 

15, 

2, 

202, 

10, 

2, 

232, 

5, 

2 , 

252, 

1, 

1, 

262, 

1, 

1, 

263, 

1, 

1, 

264, 



I, I, 265) STATIC; 



GET STRING! PROGRAM_PARMS I I ' ;• ) DAT A ( M AX_CCDS , MAX.KEYS I ; 

ALLOCATE KEY.ARRAY; 

I OPEN FILE! SYSPRINT) L INES I ZEI 132 ) ; 

on WHILE!nNEB); 

CALL READ_PARM_SFT; 

IF SEARCHING THEN CALL SEARCH_A8P; 

ELSE 

IF AGGREGATING 

THEN no K ^ 1 TO HBOUNO ! TA8LE_ARR AY , I ) WH ILE( TABLE_ARRAY! K )-.=0) ; _ 
AGGREGATE = 0; 

TABLE_NUMBER - TA8LE_ARRAY IK ) ; 

00 L = I TO MAX_KEYS WH I LE ! K EY_TYPE I L ) -»= *00'); 

CCT PTR = AODR!KEY_ARRAY(L)); 

IF RECORD_EXISTS THEN AGGREGATE = AGGREGATE ♦ TABLE; 
END; 

CALL nUTPUT^TARLEIAGGREGATE) ; 

END; 

ELSE on L = 1 TO HAX^KEYS WHILEIKEY_TYPEIL) -.= »00*l; 
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CCT_PTR = ADDR(KEY_ARRAY(L I) ; 

DO K = I TO HBOUNDITABLE.ARRAY, U 

WHILF(TABLE_ARRAY(K) 0); 
TABLE.NUMBER = TABLE^A RRA Y ( K ) ; 

IF RECORD.EX ISTS THEN CALL OUTPUT.TABLE ( TABLE ) ; 
END; 


REC3Rn_EXISTS: PROC RETURNS! B IT( 1 )) ; 

DECLARE LAST_REC CHAR(7) STATIC; 

ON KEYdSAMABP) BEGIN; PUT FI LE ( SY SPR IN T ) EDIT 

(’♦RECORD TYPE SPECIFIED DOES NOT EXIST FOR THIS CCD, OR CCD SP 
eCIFIED DOES NOT EXIST IN COUNTY SPECIFIED*) (COL(n,A); 

IF AGGREGATING THEN PUT F IL E ( SYSPR INT ) EDIT 

( • ♦COUNT Y-CCD-RFCORD_TYP£ COUNT Y ,*-•, CCD , 

TYPE,' OMMITTEO FROM THIS AGGREGAT I ON* ) ( COL ( I ) , ( 7 ) ( A K ) ; 

ELSE PUT FILE(SYSPRINT) EDIT 

(•♦TABLE • ,TABLE_NUMBER,» HAS BEEN OMITTED FOR COUNTY-CC 
n-RECORD_TYPE ', COUNTY ,*-* ,CCO ,•-*, TYPE ) 

(C0L(l),AvF(3),(6)(A) ); 

GO TO RECORD_DOFSNT_EX 1ST; 

END; 

ON CONOlTinN(SUPPRESSION) BEGIN; 

IF AGGREGATING THEN PUT F ILE ( SYSPR INT ) EDIT 

( • ♦COUNTY-CCD-RECORD_TYPE *, COUNTY ,*-*, CCD ,*-• , 

TYPE,* OMITTED FROM THIS AGGREGATION BECAUSE OF DATA 
SUPPRESSION* ) (CUL( 1),( MIA) »; 

ELSE PUT FILE! SYSPRINT) EDIT 

(•♦TABLE • ,TABLE_NUMBER,» OMITTED BECAUSE OF DATA SUPPRE 
SSION FOR CGUNTY-CCD-RECORD_TYPE *, COUNT Y ,'-*, CCD TYPE ) 

(C0Lll),A,F(3),( 61(A) ); 

GO TO RECQRD_DnESNT_EXIST; 

end; 

ON CONDITION! IGNORE) BEGIN; PUT FILE ( SYSPRl NT) EDIT 

(•♦TABLE STA3LE_NUMBER,* DOES NOT EXIST FOR RECQRD_TYP6 *, 

' TYPE,* IN COUNTY-CCO *, COUNTY, •-*, CCD, * . IGNORED.*) 

(COL(l),A,FI3),(7)(An ; 

GO TO RECORO_DOESNT_eXIST; - - r - 

END; 


IF TABLE_NUMBER>99CTYPE-=* 13* I TABLE_NUMBER<99aTYPE= • 13* 

THEN SIGNAL COND I T lONI I GNORE ) ; 

! F LAST.REC STRI NG( COUNTY_CCO_TYPF ) 

THEN DO; READ FUFdSAMABPI KEY ( STR I NG (GOUNTY_CCO_TYPE ) ) 

SET (RECORO.PO INTER ) ; 
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! l.AST_RFC = STHING(COUNTY_CCO_TYPti ; 

FNn; 

^niJNOS.PTR - AOHR { BOUNDS! TA8LE_NUMRER » I )) ; 

GCT STRINGIPOP.REC) EDIT 

( { (TABLE! I tJ) DO I = 1 TO ROWS) DO J = I TO COLUMNS)) 

(X( TAHLE_GFPSET«8),!RnWS*COLUMNS) !F(8))) ; 

IF TABLE! If 1) < 0 THFN SIGNAL CONDlT I ON ! SUPPRESS ION I ; 

RETURN! ' I'd) ; 


RECnRD_DOFSNT_EXI ST; 
END RFCnRD.EX ISTS; 


RETURN! '0*8) ; 


RE AD_PAR''T_SET : PROC; 

DFCLARE INPUT FILE STREAM, 

( ( ! C HUNT Y, CC D, RFC ORD_TYPE, TABLES) CHAR (320), 

/* IDEALLY THE ABOVE SHOULD BE APPROX S^MAX.KEYS 

LEVEL CHAR(5), CHARACTERISTIC CHAR!8) ) STATIC, 
(AGGREGATE, SEARCH) CHAR! 3) ) VARYING, 

END PIC 9999', 

COMMAS CHAR(?5A) I NIT ( U27 ) * ,0' ) *, 

/* THE ABOVE SHOULD BE CLOSE TO 2*MAX_KEYS 


ON ENDFILE! INPUT) 
a EG I N ; 

IF '.SFARCHTNC. THFN DO; 

READ FILEIHEADINGS ) KEY!»128*) S ET ! HEADER_PO INTER I ; 

GET STRTNG(TFXT) FDITIENO) (P'9999*)*, 

PUT SKIPI2) FI LF ( SYSPRINT ) ED 1 T ! * E OOTNOTES* , 

( SUBSTRITFXT, 1 ,801 00 I = 5 BY 80 WHILE! KENO )) ) 

!CnL(50) .A, !50MCOL(25),A(80) ) ) ; 

END;' 

S TOP ; 

E ND ; 

ON NAME! INPUT) BEGIN; PUT F ILE ( SYSPR I NT ) EDIT 

( • ’i'UNRECOGN I ZABLE INPUT - ' ,D AT AFl ELD, • - FOUND IN REQUEST SET- 
CHECK YOUR SPEI L-iNG AND PUNCTUAT ION- REQUEST SET IGNORED- * ) I ( 3) ( A) ) J 
GO TO RFCnVEP; 

END; 

ON CONDITinNiaAO.DATA) BEGIN; ^ 

PUT F I LE ! SY SPR I NT ) ED 1 1 ! * *UNREAL COUNTY, CCD, RECORO_TYPE, CHAR 

ACT ERISTIC, LEVEL, OP TABLF NUMBER FOUND. REQUEST IGNORED-*) 

( COL 1 1 ) , A I ; 


GO TO RECOVER; 
END; 


i R ECO VER : 

GET FILF(INPUT) DAT A ! COUNTY , CCD, RECORO_TYPE ♦ T ABL ES , AGGREGATE , SEARCH , 

CHARACTERISTIC, LEVEL); 


CFN5LIST SOURCE LISTING 


IF AGGREGATE = 'YES* THEN AGGREGATING = IB; 

ELSE AGGREGATING = OB; 

IF SEARCH = 'YES • 

THEM DO; SEARCHING=1B; 

GET STRlNGiCHARACTERISTTC) LI ST( CATEGORY, BASE); 

GET STRING(LEVEL) L I ST ( PERC ENT ) ; 

PERCENT = PERCENT « lE-2; /♦ SCALE ♦/ 

IF CATEG0RY<=0| CATEGORY>MAX_CHARS| 

BASE<=0| BASE>MAX_CHARS I 

PERCENT<0|PERCENT>1 

THEN SIGNAL CONDITION ( BAO_ DATA ) ; 

END; 

ELSE DO; SEAPCHING^OB; 

GET STRINGICnUNTYl ICOMMAS) L I ST ( KEY_COUNTY ) ; 

GET STRINGICCDI ICQMMAS ) 1. 1 S T { KE Y_CCD ) ; 

GET STRING(RECORO_TYPE I ICOMMAS) LI ST (KEY TYPE ) *. 

GET STRIMGITABLESl ICOMMAS) L I ST I T ABL E^ARR AY ) ; 

DO I = I TO MAX_KEYS WHILE! KEY TYPEdl '00'); 

IF KEY_CnUNTY( I ) > *67* I " 

MQD(KEY„CCD( I),5) 0 | 

-lANYI KEY_TYPE ( I ) = VALID_TYPFS) 

THEN SIGNAL CONDITICNIRAD DATA); 

end; 

IF ANY! TABLE.ARRAY > 127 ) 

THEN SIGNAL CONO I T I ON ( BAD DATA); 

I END; 

ENiD READ_PARM_SET; 

OUTPUT.TABLE: PROC ( ANY_T ABL E ) ; 

DECLARE (LINEiO:64) ,LEFT,LEN,PIECEStC_WlDE, I,J,K,L,U) FIXED BINI15), 
S_TABLE(l,2) FIXED BINI15) INITIO, 0), 

ANY.TABLE (>!',*) FLOAT, 

TYPF_NAMEI13) CHARI27) VARYING INITI'TOTAL POPULATIUN', 
•CAUCASIAN POPULATION* ,' NEGRO POPULATION*, 

•SPANISH-AMEP ICAN POPU LAT I ON* , I 8 ) ( 0 ) * * , * ALLOC AT I ONS * ) *, 


/* MAX COLUMNS PER ROW IS NINE */ 

C_WIDE = MIN(Cni.UMNS,9) ; 

/* SEE IF THE DIMENSIONS OF THE TABLE CHANGE FOR OUTPUT*/ 
00 I = 1 TO HBOUNDIS.TABLE, 1) ; 

IF T ARLE_NUMBER=S_T ARL E( I , 1 ) THEN C_WI DE = S TABLE! 1,2); i 

END; 

/* FIND THE NUMBER OF DIFFERENT PIECES ♦/ 

/* (IN ROWS C_WIDE BLOCKS) THAT WILL BE OUTPUT */ 

PIECES = CEIL(COLUMNS/C_WIDE) ; 

/* GRAB THE HEADING RECORD */ 

HEADER^KEY - T ABL E^NUMBER ; 

READ FILEIHEADINGS) K EY ( HEADER.KEY ) SET { HEADER POI NTER ) ; 

GET STRING(TEXT) EDiTdl INE( I) DO 1 = 0 TO ROWS+PIECES) ) (F(4)); 






ij; 




a® 
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CE^aSLIST SOURCE LISTING 

IF AGGREGATING THEN PUT SKIPI3I F ILF ( SY SPR I NT ) EDIT 

('TABLE • ,TABLF_NUMBER»* AS AN AGGREGATE OF THESE COUNTY-CCD-RE 
Ca«D_TYP{:S' , 

(C01JNTY_NAME. (KEY_COUNTY( I ) ) ,KEY_CCD( I ) , •-• , 

TYPF_NANF( KEY_TYPE( I n 

DO I = I TO MAX.CCDS WH I LE ( KE Y_TYPE ( I) -'=01)1 
(COL( I I , A,F( 3) , A, (HAX^CCOSI (COLIMOD(I-l»4)*33+lI , A » A t P * ZZ9* , A, A| | ; 
ELSE PUT SKIP(3) F I LE ( SYSPR I NT I EDIT 

(•TABLE • ,TA8LE_NUMBERf COUNTY.NAMEICOUNTY) , 

• COUNTY, CENSUS DIVISION SCCD,*, *, 
TYPE_NAME(TYPEi ) 

(COLUMN! 1) ,A,F(3),X(2I,A,A,P*ZZ9» ,A,AI; 

on K 4- L TU PIECES; 

LEM = LINEd ) - LINE(O); 

/* FOR EACH PIECE OF THE TABLE, ♦/ 

/* WRITE THE COLUMN HEADINGS */ 

PUT F ILE( SYSPRINT) ED I TI SUBSTR ( TEXT , L I NE ( 0 ) , LEN ) ) , n 

I (COLIl) ,A); 

/* FIGURE OUT WHICH COLUMNS OF THIS ROW TO OUTPUT ♦/ 

L = (K-U*C_WI0E + l; « 

U =MIN(K*C_WIOE, COLUMNS); 

LEFT = 131 - (U-L+U ♦ 11; 

DO I = il TU ROWS; 

LEIN = LINE (14-1 1 - LINEd I ; 

pujT filf(sysprint) edit((any_table(I,j) do j=l to U), 

SUB STR ( TEXT, LINE! I) , LEND _ 
( COL ( 2 ) , ( U-L+ 1 I ( F ( 8 ) , X ( 3 ) ) , A( VEEt » I ; , 
/♦ FOR THE ROW HEADING THAT WON'T FIT ON ONE LINII”^/ 

IF LFN>LEFT THEN PUT F ILE ( SYSPRINT) EDIT 
^ { SUBSTR(TEXT,LINE( I H-LEFT, LEN-LEFT I I ^ ^ 

IC0Ll(U-L4-l)*(843)4-2),A); 

ENt)-; 

end; 

FNO 0UTPUT_TA8LE ; 


BASE_TYPE) PIC»99», 


SEARCH_4BP: PROC; 

DEGLARE (COUNTY, CAT_TYPE, 

CCD PIC ' 999 ' , 

(HOLD, COMPUTED.LEVEU FLOAT, ^ 

FOUND FIXED BINARY INIT(O), 

CHAR.HEADER CHARI 80) VARYING, 

1 SEG_0VIY BASED! SEG_PTR) , 

2 ( WHICH_TABLE, SEGMENTS) FIXED BIN(15), 

/<' . IMPORTANT - THE ORDER OF ITEMS IN THIS ARRAY MUST BE CONSISTENT 
/♦WITH THE order OF ITEMS IN I TEMS^AND_OFFSE T ; THE ROW NUMBER 
/* CORRESPONDS TO THE CHARACTERISTIC NUMBERS THAT ARE INPUT. 

/X' NEW 6;ARACTERIST ICS SHOULD BE EASY TO ADD TO THE END. 

tABLE_SFGMENTS(0:MAX_eHARS;2) FIXED BINI15) TNITt 


♦/ 
♦ / 
♦ / 
♦ / 


0 , 

17, 


0 , 

2 * 




/* DUMMY - NEEDED 
/♦ 0 - 18 YEARS 


CHAR*/ 
I ♦/ 
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llfl^pip!i<^|lii 




CENSLIST SOURCE LISTING 


17, 

2, 

17, 

2, 

17, 

2, 

2:8, 

1, 

35, 

1, 

42, 

2.; 

42, 

2 , 

43, 

2 , 

54, 

2 , 

54, 

2 , 

58, 

1 , 

58, 

1 , 

58, 

1 , 

58, 

1 , 

59, 

1 . 

59, 

1 , 

59, 

1 , 

5:9, 

1 , 

62 , 

1 , 

62, 

1, 

62, 

1 , 

62, 

1 , 

6?, 

1 , 

62, 

If 

62 , 

If 

62, 

If 

62, 

If 

75, 

If 

75, 

1 f 

82, 

If 

17, 

1 , 

17, 

2 , 

35, 

If 

17, 

2 , 

43, 

If 

17, 

2 , 

54 , 

2 , 

58, 

1, 

59, 

If 

75, 

1 , 

if 

1) 

HIGHEST. 

25, 

45 , 

40, 

20 , 

35, 

25, 

30, 

35, 

40, 

30, 


FIXED 


30, 

55, 

40 , 

40, 


20 , 

25, 

40, 

60, 

30, 


30, 

35, 

135, 

30, 


/♦ 

19 - 44 YEARS 

2 

♦/ 

/* 

45 - 64 YEARS 

3 

♦/ 

/* 

65 -> YEARS 

4 

if 

♦/ 

/* 

DIFFERENT STATE 

1 

5 

♦/ 

/♦ 

OUT OF COUNTY 

i 

6 

♦/ 

/♦ 

HIGH SCHOOL 

7 

♦/ 

/* 

COLLEGE 

8 

♦/ 

/* 

VOCATIONAL 

( 

9 

*/ 

/♦ 

LABOR FORCE 

10 

♦/ 

/♦ 

LABOR FORCE, UNEMPLOYED 

11 

*/ 

/♦ 

PROF, TECH, KINO-POPULATION li 

2 

*/ 

/♦ 

CRAFTSMEN - POPULATION 

1: 

3 

*/ 

/♦ 

OPERATIVES - POPULATION 

li 

4 

♦/ 

/♦ 

SERVITUDE - POPULATION 

15 

♦/ 

/♦ 

PROF, TECH, KIND - FEMALE 


♦/ 

/♦ 

CRAFTSWOMEN 

IF 

♦/ 

/♦ 

OPERATIVES - FEMALE 


♦/ 

/♦ 

SERVITUDE - FEMALE 

19 

♦/ 

/♦ 

AG, FOR, F ISH 

20 

♦/ 

/♦ 

MINING 

21 

♦/ 

/♦ 

CONSTRUCTION 

2, 

2 

♦/ 

/* 

MANUFACTURING 

2 

3 

♦/ 

/♦ 

TRANSPORTATION 

2 


*/ 

/♦ 

WHOLESALE, RETAIL 

25 

♦/ 

/♦ 

FINANCE, INSURANCE 

26 

♦/ 

/♦ 

SERVICES 

2F 

♦/ 

/♦ 

PUBLIC AOMIN 

28 

♦/ 

/♦ 

FAMILY INCOME < 3000 

2'^ 

♦/ 

/♦ 

FAMILY INCOME < 700Q 

30 

*/ 

/* 

INCOME < POVERTY LEVEL 

3 I 1 

♦/ 

/♦ 

(ALL) PERSONS 

32 

♦/ 

/♦ 

PERSONS > 5 

33 

*/ 

/♦ 

PERSONS AT WORK 

34 

♦/ 

/♦ 

PERSONS > 25 

35 

♦/ 

/♦ 

16 - 64 YEARS, < 3 YRS COL 

36 

*/ 

/♦ 

PERSONS > 16 

37 

*/ 

/♦ 

PERSONS > 16, LABOR FORCE 

38 

*/ 

/♦ 

PERSONS > 16, UNEMPLOYED 

39 

♦/ 

/♦ 

FEMALES > 16, EMPLOYED 

40 

*/ 

/* 

(ALL) FAMILIES 

41 

♦/ 

/* 

AGGR $ INCOME 

42 

♦/ 

NARY 

INIT( 20, 45, 25, 20, 

35, 


20 , 

20, 

30, 15, 15, 40, 25, 

25, 


15, 

50, 

30, 25, 50, 20, 20, 

25, 


20, 

15, 

40, 35, 35, 40, 25, 

30, 


45, 

45, 

40, 25, 30, 30, 25, 

25, 


25, 

70, 

25, 25, 20) ; 





3N KeY(ISAM4BP) GO TO NFXT_CCO; /♦IGNORE INTERRUPUTS, ♦/ 
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/* SINCE WE BUILD THE KEYS ♦/ 

HEAOFR_'<EY = CATEGORY; 

READ F ILE< CHAOHEADl I NTO( CH AR_HE ADER ) K EY ( HE AOEP_KEY ) ; 

RUT SKIP(2) F ILE ( SYSRRINT) EDITCSEARCH FOR CCO'»S IN WHICH •» 
CHAR_HEADER, ' AS A PERCENT OF *) I COL ( 1 ) , I 3 H A ) ) J 
HEADER.KEY = BASE; 

READ FILE! CHARHEAD) INTO I CHAR_HE ADER ) KEYIHE ADER^KEYI ; 

PUT F ILE( SYSPR INT ) EDI T (CHAR_HEAOER, • EXCEED • , P ERCENT , • ♦ 

(•COUNTY CCD' DO I = 1 TO 5)1 

(A,A,F( 5vlT2)tAtC0L(l)fl5)(AtX(9)) ); 


CAT.TYPF, BASE_TYPE = '01'; 

00 COUNTY = I TO 6 7; 

DO CCD = 5 BY 5 TO H I GHE ST_CCO( COUNT Y I ; 

READ F ILE( I SAH4BP ) KF Y( COUNTY | 1 CCD I I BA SE_T YPE I 

SETIRECORO.POINTER) ; 

HOLD = TALLY! BASE); 

IF HOLD = 0 THEN COMPUTFO_LE VEL = 0; 

ELSF COMPUTEO.LEVEL = T ALLY(CATEGORY ) / HOLD; 

IF COHPUTED.LEVFL >= PERCENT 
THEN do; FOUND = FOUND + 1; 

PUT F ILEI SYSPRINT) E D I T ICOUNTY.NAME ( COUNT Y ) , CCD, 

COMPUTED.LEVEL, *** ) 
(CQL{MQO(FOUNO-l ,5)*24+U ♦ A( 10 ) , X( 2 I tP * ZZ9* ,X(2) ♦ 

F(5tlt2)tA); 

IF FOUND >= max^CCOS THEN GO TO EXIT; 

end; 

NEXT_CCD: 

end; 

END ; 

IF FOUND = 0 THEN PUT F ILE ( SYSPR INT ) EDIT 

(*«Nn CnUNTY-CCD* • S MEET THE SPECIFIED LEV EL * ) tCOL ( 1 ) f A ) ; 

TALLY: PRGC(CHAP) R E TURNS ( FLOAT ) ; 

DECLARE (CHAR, VALUE, TOTAL INITIO)) FLOAT, 

COP FIXED BIN( 15) INIT( 1 ) , 

1 ITENS.OVLY BASED! ITEM.PTR) , 

2 (ITEMS, ITEMS_OFFSET) FIXED BIN(15), 



I TENS 

-AND, 

.OFFSET! MAX 

_CHARS»3) 

FIXED BIN(15) INITI 


Ilf 

0, 

Ilf 

27, 

/* 

CHAR 

1 

♦ Z 

3 , 

Ilf 

3, 

33, 

/♦ 

CHAR 

2 

♦ / 

5, 

19, 

5, 

46, 

/♦ 

CHAR 

3 

♦ / 

3, 

24, 

3, 

51, 

/♦ 

CHAR 

3 

♦ / 

4, 

3, 


' 

/* 

CHAR 

5 

♦ / 

1, 

24, ; 



'*i 

CHAR 

6 

♦ / 

4 , 

6f ! 

4, 

16, i 

/* 

CHAR 

7 

♦ / 

2, 

3, 

2, 

18, 

fA 

CHAR 

8 

i/ 

1 1 

Of 

If 

2, 


CHAR 

9 

*/ 

?t 

If 

2, 

10, 

/♦ 

CHAR 

10 

♦/ 

1 f 

2, 

If 

12f 

/* 

CHAR 

11 

*/ 
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6 f 

7, 

3 , 

6 ♦ 
5» 

1 f 

3, 

6 f 

It 

It 

I t 

12 f 

5, 

6 t 
2« 
I2t 

I I 
3 , 
7t 
3t 


0, 

17, 

24, 

35, 

0, 

11 , 

12 , 

20 , 

0, 

1 , 

2 , 

3, 

15, 

20 , 

26, 

28, 

40, 

0 , 

0 , 

0 , 


54, 

0, 



25 , 

2, 

25, 

29 , 

26, 

0, 


42, 

12 , 

15, 

12, 

4, 

0, 



19* ♦ 

8, 

19, 

35 , 

2 f 

1, 

2, 

10, 

42, 

0, 



27 , 

0, 



15, 

0, 



1 , 

0) ; 




/♦ 


CHAR 

12 

/♦ 


CHAR 

13 

/# 


CHAR 

14 

/« 

1 

CHAR 

15 

lif. 

1 

1 

CHAR 

16 

/♦ 


CHAR 

17 

/♦ 


CHAR 

18 

/♦ 

1 

CHAR 

19 

/*! 

CHAR 

20 

/« 

! 

CHAR 

21 

/♦ 

1 

1 

CHAR 

22 

/♦' 

CHAR 

23 


CHAR 

24 

/>*l 

CHAR 

25 


CHAR 

26 

/=•! 

CHAR 

27 

/Tji 

CHAR 

28 

/« 

CHAR 

29 

/* 

CHAR 

30 

/* 

CHAR 

31 

/* 

CHAR 

32 

/« 

CHAR 

33 


/* 

/♦ 

/« 

/* 

/4 


CHAR 34 
CHAR 35 
CHAR 36 
CHAR 37 
CHAR 38 
CHAR 39 
CHAR 40 
CHAR 41 
CHAR 42 


♦ / 

♦ / 

♦ / 
*/ 

♦ / 

♦ / 

♦ / 

♦ / 

♦ / 
*/ 

V, 

*/ 

♦/ 

*/ 

♦/ 

*/ 

*/ 

*/ 

♦/ 

♦/ 

*/ 

»/ 

♦/ 

»/ 

♦/ 

♦/ 


M ^ _ 

' CD? IVnrr?L>Le.scr,«ENTsn,2..2; /• c»lc cum df.set ptr «/ 

SPO PTR°= A0DR(TABLE_SEGMENTS(CHAR,1)); 

’ ITEM^PTr='^AnOR!lTEHS_AND_OFFSeT(CQP)); 

B0UNDS_PTR = AODR( R0UNnS(WHlCH_TA8LE,l ) ) . 
nnJ = 07C)TTEMS-l» 

get 5TRlNGiroP_REC. is.OFPSE f J 1*8 . . P- « 8 1 ^ ; 

IF VALUE < 0 THEN RETURN(O); /♦ SUPPRESSION CHECK 
TOTAL = TOTAL ♦ VALUE; 

END; 
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i S JB SCR I PTRANGEfSTR INGRANGE, SIZE) : 

HDUSING_LIST : PROC ( P RGGRAM_P ARMS ) OPT ICNS ( MAIN ) REORDER; 

DECLARE (MAX CCDS INIT(50J, MAX.KEYS INIT(IOO), MAX_CHARS lNIT(6fl)) 

FIXED BIN( 15) , 

PROGRAM_PARMS CHAR(IOO) VARYING, 

((AGGREGATING, SEARCHING) BITIl), 

VALIO_TYPES( 6) PIC*99* I N I T ( 1 , 2 , 7 , 8 , 9 , 1 0 ) , 

(TABLE.ARRAY (200) , I ,J ,K,L,TA8LE_NUMBER) FIXED BIN(15), 

QNEB bTt(I) INITCl'B), 

((Table, aggregate h 15, 24) init ( (360)0) , 

CATEGORY, BASE, PERCENT) FLOAT) STATIC, 

REC CHAR(11420) 8ASEO( RECORD_PO I NT FR ) , 

TEXT CHARI3000) BA S E D( HE ADFR.PO I NTER ) , 

HEADER.KEY PIC'999‘, 

(ISAM4BH, HEADINGS, CHARHEAO) FILE RECORD SEQUENTIAL KEYED 

ENVIRONMENT! INDEXED BUFFERS(l) ) , 

I KEY_ARRAY(MAX_KEYS) CONTROLLED, 

2 KEY.COUNTY PIC»99» , 

2 KEY.CCO PIC '999*, 

2 KEY.TYPE PIC 99* , 

1 CnUNTY_CCD_TYPE f A S ED( CCT_P TR ) , 

2 COUNTY P IC*99* , 

2 CCD PIC'999* , 

2 TYPE PIC’99', 

(ADOR, ANY, CEIL, DATAFIELD, HBOUNO, MIN, MOO, 

STRING, SUBSTR) BUILTIN ; 

DECLARE COUNTY_NAME ( 67 ) CHAR(IO) VARYING IN I T ( • AUT AUGA* , ' BA 

LOWIN' , 'BARBOUR* ,' B I BB ',* BLOUNT* ,* BUL LOC K* , 'BUTLER* , 'CALHOUN* , 'CHAMBERS 

* ,i* CHEROKEE' , 'CHILTON* ,' CHOCTAW* , 'CLARKE ' , ' CL AY CLEBURNE * ,' COFFEE *, *C 
QLBE RT* ,* CONECUH* ,* COOSA* , • COVINGTON* ,* CRENSHAW' , 'CULLMAN* , 'DALE* , • DALL 
ASI* , 'DE KALB* ,'ELMORF* ,* ESCAMBIA* ,* ETOWAH* ,* FAYETTE* ,* FRANKLIN* ,* GENEVA 

• ,!» GREENE* , * HALE* , • HENRY* , 'HOUSTON* ,' JACKSCN* , 'JEFFERSON' , 'LAMAR* , * LAUD 
ERDALE* , 'LAWRENCE* ,* LEE ',' L I MESTONE ',' LOWNDES* , * MACON ' , * MAO I SUN * , 'MAREN 
G0|* , 'MARION* , 'MARSHALL* , 'MOBILE* ,"MONROE* , ' MONTGOMERY *,* MORGAN* , 'PERRY* 
,' PI CKENS* , 'PIKE* ,*RANOOLPH*, 'RUSSELL* , *ST. CL A I R * , * SHEL BY* , * SUMTER* , *T 
ALLAOEGA* , * TALLAPOOSA* , * TUSCALOOSA* ,* WALKER* , • W ASH I NGTON* , * W I LCOX * , * W I N 
STON') STATIC; 

DECLARE I ROUNDS^OVLY PASEOI SOUNDS.PTR) , 


2 (ROWS, COLUMNS, TABLE_OFFSET) FIXED BIN(15), 


BOUNDS! 2QO, 3 ) 

FIXED 

BIN( 15) 

INIT( 1 

, 4, 

D, I, 

4 , 


4 , 

; 1,4, 

8, 

1, 4, 

12, 

1, 3, 

16, 

1, 

2, 

19, 

4,1, 

21, 

6,12, 

25, 

9,12, 

97, 

7, 

9, 

2 05, 

8,12, 

268, 

8,12, 

364, 

8,12, 

460, 

3, 

6, 

556, 

3,6, 

574, 

6,10, 

592, 

4 , 5 , 

652, 

4, 

6, 

672 , 

15, 3, 

696, 

10, 2, 

741, 

3, 3, 

761, 

4, 

6 , 

770, 

2, 6, 

794, 

8, 5, 

806, 

8, 5, 

846, 

8 , 

5, 

886 , 
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6» 

IPf 

4 26, 

3, 

5, 

998, 

3, 

5, 

1013, 

2, 

5, 

1028, 

2, 

3, 

1038, 

5, 

5, 

1048, 

2, 

5, 

1073, 

2, 

5, 

1083, 

6 ♦ 

If 

1093, 

4 , 

1, 

1099, 

10, 

9, 

1103, 

14, 

5, 

1193, 

5, 

5, 

1263, 

6, 

5, 

1288, 

2, 

5, 

0, 

6, 

9, 

10, 

3, 

6f 

6A, 

4, 

6 , 

82, 

3, 

6 , 

106, 

3, 

6, 

124, 

3, 

6f 

1A2, 

10, 

12, 

160, 

3, 

2, 

280, 

7, 

4, 

286, 

2, 

5, 

31A, 

11, 

4, 

324, 

11, 

4 , 

36 8, 

15, 

4 , 

412, 

15t 

4r 

A 72, 

3, 

12, 

532, 

6, 

3, 

568, 

5, 

1 , 

586, 

3 ♦ 

12, 

591 , 

6, 

9, 

627, 

1, 

1, 

681, 

1, 

1, 

682, 

1 ♦ 

1, 

633, 

1, 

1, 

684, 

1 , 

1 , 

685, 

2, 

1 , 

686, 

If 

2f 

688, 

3, 

4, 

690, 

9, 

2, 

702, 

3, 

4, 

720, 

3, 

A f 

73 2, 

3, 

4, 

744, 

3, 

2, 

756, 

4, 

2, 

762, 

3f 

A, 

770, 

1, 

2, 

732, 

ll. 

2, 

784, 

14, 

4, 

806, 

Ilf 

A, 

86 2, 

5, 

1, 

906, 

6, 

1, 

911, 

4, 

2, 

917, 

8f 

2, 

92 5, 

6, 

4 , 

941 , 

9, 

4, 

965, 

3, 

4, 

1001, 

6f 

2, 

1013, 

7, 

2, 

1025, 

3, 

2, 

1039, 

3, 

4, 

1045, 

6f 

A, 

1057, 

4, 

2, 

1081 , 

1, 

4, 

1089, 

4, 

4 , 

1093, 

2f 

Af 

1109, 

8, 

1, 

1117, 

8, 

2, 

1125, 

8, 

2, 

1141, 

6, 

A f 

1157, 

3, 

1, 

1131, 

3, 

2 , 

1184, 

2, 

2, 

1190, 

?f 

If 

1194, 

3, 

2, 

1196, 

2, 

1, 

1202, 

2, 

1, 

1204, 

2f 

If 

1206, 

6, 

24, 

0, 

6, 

24, 

144, 

8, 

24, 

288, 

3f 

6f 

430, 

6 , 

12, 

498 , 

6,24, 

570, 

3, 

6 , 

714, 

6f 

12, 

732, 

6 , 

24, 

804, 

8, 

24, 

948, 

7/ 

14, 

1140, 

Tf 

lAf 

1238, 

6, 

14, 

0, 

5, 

14, 

84, 

5, 

16, 

154, 

2f 

16f 

234, 

5, 

16, 

266, 

6, 

16, 

346, 

6 ♦ 

16, 

442, 

3 f 

16, 

538, 

7, 

16, 

666 , 

7, 

16, 

778, 

5, 

16, 

890, 

8f 

18, 

0, 

8 , 

3, 

144* 

8, 

10, 

168, 

2, 

3, 

248, 

2f 

12, 

254, 

6, 

3, 

278, 

6, 

12, 

296, 

6, 

3, 

368, 

6f 

12, 

386, 

4, 

3, 

458, 

4, 

12, 

470, 

8 , 

8, 

518, 

5f 

A, 

582, 

5, 

6 , 

602, 

4, 

7, 

632, 

4, 

7, 

660, 

5f 

7, 

688 , 

4, 

7, 

723, 

5, 

7, 

751, 

4, 

7, 

786, 

5f 

7, 

814, 

9, 

1, 

849, 

6, 

6, 

0, 

6, 

6, 

36, 

8 f 

6, 

72, 

6, 

6, 

120, 

6, 

6 , 

156, 

6, 

6, 

192, 

6f 

6 , 

22 8, 

8, 

6, 

264, 

7, 

7, 

312, 

7, 

7, 

361, 

6 f 

7, 

410, 

5, 

7, 

452, 

5, 

8, 

487, 

2, 

8, 

527, 

5f 

8, 

543, 

6 f 

8, 

583 , 

6, 

8, 

631, 

8, 

8, 

679, 

7f 

a. 

743, 

7, 

8, 

799, 

5, 

8, 

855, 

8, 

9, 

895, 

8f 

5, 

967, 

2, 

6, 

10C7, 

6, 

6 , 

1019, 

6, 

6 t 

1055, 

Af 

6 , 

1091, 

8, 

2, 

1115, 

5, 

2, 

1131, 

3, 

1 , 

1141, 

6 f 

5, 

1 144, 

6, 

5, 

1174, 

6, 

6 , 

1204, 

6, 

6 , 

1240, 

6f 

7, 

1276, 

6, 

2, 

1318, 

6, 

2, 

1330, 

7, 

2, 

1342, 

7f 

2, 

1356, 

6, 

2, 

1370, 

7, 

2, 

1382, 

2, 

3, 

1396, 

3f 

1, 

1402, 

3, 

1, 

1405, 

3, 

1, 

1408, 

3, 

1, 

1411, 

3f 

2, 

lAlA, 

3, 

2, 

1420) 

STA 

TIC; 






/>!!♦* 

ON ERROR SNAP BEGIN; ON ERROR SYSTEM; PUT F ILE ( S YSPR I NT ) DATA 

(key_array(l) ,k) ; 

PUT FILE! SYSPPINT) L I ST I ROWS ♦COLUMNS , TA8LE_NUMBER , 

SUBSTRI TEXTflf AOO) ,SUBSTR(RECf ItlOOn 


HOUSLIST SnURCF LISTING 


END; 

GET STRl NG ( PROGP AM_pi\PMS I I * ; * ) OAT A( M AX_f,COS i MAX_KEYS J ; 

ALLOCATE KEY_ARRAY; 

□ PEN FILE ( SYSPRI.NT) L I NE S I 2E { 132 ) ; 

03 WHILEIONEB); 

CALL REAO.PARMJSET; 

IF SEARCHING THEN CAIL SFARCH_4BH; 

ELSE 

IF AGGREGATING , 

THEN 00 Ki = I TO HROUNOI TABLE_ARRAY» I ) WH ILEI TABLE„ARR AY( K )-i=0) ; 

AGGREGATE = 0; 

TABLE NUMBER = T ABLE_ARRA Y ( K ) ; 

DO L = 1 TO MAX_KEYS WH ILE I KEY_CCD( H -»= *00'); 

CCT PTR = A00R(KFY_ARRAY( L n ; 

IF RFC0R0_EX ISTS THEN AGGREGATE = AGGREGATE + TABLE; 

end; 

CALL OUTPUT^TABLEI AGGREGATE » ; 

ENO; 


ELSE 00 L * 1 TO MAX.KEYS WHILE ( KEY_CCD( L ) -•= *00'); 

CCT_PTR = ADOR (KEY_ARRAY( L ) ) ; 

DO K = 1 TO HB0UN0{TABLE_ARRAY,1 > 

WHILE! TABLE_ARRAY{ K) --= 0) ; 
TABLE NUMBER = TABLE_A RR AY { K ) ; 

IF RFCORO.EXISTS THEN CALL OUTPUT.TABLE I T ABLE ) ; 

ENO ; 


RFCORO.EXISTS: PROC RETURNS! B I TI 1 )) ; 
OECLARi LAST_REC CHAR!7) STATIC; 


ON KEY! ISAMA'BH) BFGIN; PUT FILE! SYSPR INT) EDIT 

(•♦RECORD TYPF SPECIFIED DOES NOT EXIST FOR THIS CCO» OR CCD SP 
ECIFIED DOES NOT EXIST IN COUNTY SPECIFIED*) (COL!l)»A); 

IF AGGREGATING THEN PUT F I LF ! SY SPR I NT ) EDIT 

( •♦COUMTY-CCD-RECORD_TYPE », COUNTY CCD, •-' , 

TYPEf* OMMITTED FROM THIS AGGREGAT I ON' ) (COL ( 1 ) t ! 7 ) ( A ) ) ; 

ELSE PUT FILE( SYSPR INT) EDIT 

(•♦TABLE • ♦T.A^E_NUM0ER» • HAS BEEN OMITTED FOR COUNTY-Cu 
D-RECORD.TYPE ' , COUNTY, •-• , C^l>>^- • ,T YPE ) 


f rm < n ^ A^F { 3 ). ( 6) { A ) ) ; 


GO TO RECORD_DOFSNT_EX! ST; 

end; 


ON CONDI TinN( suppression) BEGIN; 
PUT FILE! SYSPR INT) EDIT 



HGUSLIST SOURCE LISTING 


{ t*CaUNTY-CCO-RECORD_TYPE », COUNTY fCCOt •-'» 

TYPE,' OF THIS AGGREGATION CONTAINS SUPPRESSED DATA I 
(COL(l) ,(7)(A)); 


END ; 


ON CONDI T I UN( I GNORE ) ftEGIN; PUT F I LE ( SY SPR I NT ) EDIT 

M>!=TABLE 'tTABLF.NUMBER,' DOES NOT EXI ST FOR RECORD.TYPE • 
TYPE,' IN COUNT Y-CCO • tCOUNTY » * -* , CCD» * . IGNORED. ) 

(COL 1 1 ) f A,F13) » 1 7 M AH ; 

GO TO RECGRD_DnESNT_EXIST; 

END; 


f THIS IS MOSTLY TO KEEP AGGREGATIONS ♦/ 

/« FROM GOING ACROSS R ECORO_TY PE S . ♦/ 

IF TYPE-» = FIND TY P E ( T ABl. E_NUMB ER ) THEN SIGNAL CONDI TIONI IGNORE) , 

IF LAST REC -•= S T R I NG ( C OUNT Y_CCD_T YP E ) 

THEN DO; READ FILEI1SAM4BH) ‘ 

LAST.REC = STRING! COUNTY_CCO_TYPE); 

END; 

ROUNDS_PTR = AODR ( BOUNDS ( TARLE_NUMBER , I )) J 
TABLE = O; 

GET STRINGIREC) EDIT 

( ( ( TABL E( T , J ) DO I =1 TO ROWS) DO J = 1 TO COLUMNS)) 

(X( TABLE_OFFSET«8)t! POWS*COLUMNS) (F(8) )) ; 

/«!« IS THIS THE BEST ANSWER? ♦/ 

IF AGGREGATING THEN IF ANY (TABLE < 0) « 

THEN SIGNAL CONDI TIONI SUPPRESSION) » 

RETURN! ' I ' R) ; 

P FCQRD_DOESNT_EX I ST: RETURN !' 0 ' 8 ) i 

END RFCORD._EX ISTS;. 


RFAI)_P ARM_SET 
DECLARE INPUT 


/i, 


/*- 


pROC ; 

FILE STREAM, 

! ( (COUNTY,CCD,RECORO_TYPE, TABLES) CHAR! 320) , 
IDEALLY THE ABOVE SHOULD PE APPROX 3*MAX_KEYS 
LEVEL CHAR(5), CHARACTERISTIC CHAR (8) ) STATiCf 
(AGGREGATE, SE ARC H) CH AR 1 3 ) ) VARYING, 

END PIC 9999' , 

COMMAS CHAR(AOO) INIT!(200)',0'); 

J4P above SHOULD BE CLOSE TO 2*MAX._KEYS 


♦/ 


*/ 


ON ENDF ILE ! INPUT) BEGIN; 
IF -.SEARCHING THEN DO; READ 

GET 

PUT 


FILE(HEADINGS) KEYC201') 

SET (HEADER^PO INTER); 
STRING(TEXT) EOTTIEND) (Xt 4) , P *999t* ) ; 
SKI PI 2) FILE I SYSPRINT) EDIT I • FOOTNOTES* » 
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<SUBSTR(TEXT,l»l32» DO I 


= 9 BY 132 

WHILECKEND) ) ) 


(CnU62l ♦A,(50)(COL( ll» A( I32m ; 

end; 

stop; 

end; 


ON 


NAMEi INPUT) begin; ^ ‘ f Li I ^ 

(•♦UNRECOGNIZABLE INPUT - ♦OATAFIELD* 
CHECK YOUR SPELLING AND PUNCTUATION. REQUEST SET 

GO TO recover; 


FOUND IN REQUEST SET. 
IGNORED.’ ) { ( 3)( A ) ) *. 


end; 


ON 


‘^TurMr6?s?SPR[N’TrEDl?l'.UNREAl COUNTV. CCD. RECORD TVPE. 

rcteristk! level; oriABie number pound, reouest ignored.'. 


CHAR 


I rni ( n . A ) 


GO TO RECOVER; 

end; 


recover: 


GET F ILE( INPUT) 


I F AGGREGATE 


IF 


SEARCH = 
THEN DO; 


ELSE DO 


DATA (COUNTY , CCD » RECORD., TYPE , TABLES ♦ AGGREGATE » S EARCH» 
CHARACTER ISTIC, LEVEL ) ; 

= 'YES' THEN AGGREGATING = IB; 

ELSE AGGREGATING = OB; 

•YES’ 

GEt'^STRING(CHARACTERISTIC ) LlSTICATEGORYt BASEJi 
GET STRING(LEVEL) L I ST ( PERC ENT ) ; _ 

PERCENT = PERCENT ♦ lE-2; /* SCALE 

IF CATEG0RY<=0|CATEG0RY>MAX_CHARS| 

PASE<=0| BASE>MAX_CHARS I 

PERCENT<01PERCENT>1 

THEN SIGNAL COND I T ION ( 8 AO_DAT A ) ; 

END; 

GET STRI NG( COUNTY I ICOMMAS ) LIST ( KEY_COUNTY ) ; 
get STRING(CCOllCOMMAS) IST( KEY.CCD) ; 

GET STR ING( RECORD_TYPE 1 1 COMMAS) L I ST ( KEY_TYPE ) , 

GET STRING(TABLES| (COMMAS) LIST(T ABLE_ARRAY ) % 


DO 


I = 

IF 


= 1 TO MAX.KEYS WH I L E ( KEY.CCD ( I ) *00') 

KEY COUNTY! I ) > *57' | 

-.ANY(KEY_TYPE( I) = VALIO.TYPES) I 
MODI KEY_CCD( I ) f 5) 0 

then SIGNAL CrNOITIGN(BAD_OATA) ; 

IF°ANY(TABLE ARRAY > 200 1 TABLE.ARRAY < 0) 
then signal C0N0IT10N(BAD_DATA) ; 

end; 

END REAO_PARM_SET ; 


MOUSLIST SOURCE LISTING 


l-INO.TYPr: PROCITN) « E TOR NS ( P I C » 99 ' ) ; 

OFCLARE (TN, LIMITSIM I N T T I AQ » .10 7 , U 9, ] 30 , 15 200 U EjiXED 

00 I = I TO 6 whuf(tn > uMnsini; END; 

RETURN! VAL IO_TYPES{ I ) > ; 

END FIND._TYPE; 

nUTPUT_TABLE : PROC ( ANY„T ABL F ) ; 

DECLARE (LfNF{ 100! ,LFFT;LFNvPI ECEStC_,WIDE , ! .JjKjL.U) FIXED BlNIiS)- 


S_rA3LF! 26,2 

5 FIXED RINf 15! INIT ! 108, 

6 f 

109, 

O 9 

uo» 

6 , 

112, 6, 

113, 

6 , I 1 5 • G , 

116, 6 , 

III, 6, 11 o, 

7, 

119, 

7? 

120, 

7 » i 2 1 , 1 

122, .5, 

l?3 , 

8, 124, a. 

125, 8, 126, 

8, 

12 7, 

8, 

1 28v 

a> 

129, 8, 

130, 

8, 133, 5, 

135, 6, 137, 

6 , 

139 , 

6, 

141 , 

61, 


ANY TABLF(‘.'m'M float, 

TYPE_NAMr:(10 ) CHARI27! VARYING 1 M IT U 2 ) ( 1. ) ’ TOT AL POPULATION?, 

(4 5 (0) * ' , ( 3) ( 1 ! • TOTAL POPULATiCN? , 

> 5P AMI SH-AMFP ICAN POPULATICN' ) ? 

/* MAX CnLU''NS PFR ROW IS NINE / 

C.WIDF = MIN( columns, ' ll ; 

/'!' SEE IF THE DIMENSIONS 0^ THE TABLE CHANGE FOR niiTPU?*/ 
on I •= 1 TO HBOUND( S^TABLE, 1) ”, 

IF TABLE_NUMBER=S„T arlEU V U THEfM C„Wr.DE = S„'FABL El 1 , 2 U . 

END; 

/* FIND THE NUMBER OF DIFFERENT PIECES 

/-,= (IN ROi'iS X C„WIDE BLOCKS! THAT WUt BE OUTPUT 'Y/ 

PIECES = CEI L ( COLUMNS/C_WIDE) ; 

/* GRAB THE HEADING RECORD */ 

HFADER_KEY = T ABL E_NUMB ER ; 

READ FILE( HEADINGS ) K EY ( HE AOER^XFY ) S 6T I HEADER„POf NTER) 1 
GET STRING(TEXT) EDITCll INEtl) DO 1 = 1 TO ROWS-^-P 1 ECES+ 1 )! 

IF aggregating then PUT SKIP(3) F I LF I SY SPRI NT ) EDIT 

(’TABLE ' ,TARLE_NUMBER, • AS AN AGGREGATE OF THESE COUWtM-CC0-“PE 
GnRn_TYPES' , 

(COUNTY_NAME(K‘=Y_CDijNTY{ n jKEY^CCnn ) , , 

TYPE_NAMF( KFY_TYPEI I )) 

no I = 1 TO MAX„CCOS vJHlLEv KEY„CCD(T ) -^=0))) 

(COL( 1 ) , A, F ( 3) , A, (MAX^CCDS) (COL (MODU”-! , 4 1 *3 3+ I ) t A , A , P ‘ Z 29 » r A , AH ? 

ELSE PUT SKIP(3! F I LE ( SY SPRINT ) EDIT 

( ’T ABLE ’ fTAaLE^NUMBERfCOUNTY^NAMEICOUNTY 5 j 
» COUNTY, CENSUS DIVISION ',CCO,*, *, 

TYPE^NAMFI TYPE)) 

{COLUMN! U YA»F(3I,X!25 ,A,A,P«ZZ9* rA,A) ; 

00 K = I TO PIECES; 

LEN = LINECROWS-J-K+IJ - LtNF(ROWS+lU; 

ORIGINAL PAGE IS 
OFPOOBQUAUTV 
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/* FOR EACH PIECE OF THE TABLE, 

WRITE THE COLUMN HEADINGS *! 

PUT F ILF( SYSPRINT) E D I T ( SUB STR ( T EX T , L I NE I ROWS+IU . L EN ) ) 

(COLIUfAl; 

/>:« figure OUT WHICH COLUMMS OF THIS ROW TO OUTPUT >1‘/ 

L = (K-1 )*C_WIDE + l; 
u = MINIK*C_WTDE,CQLUMNS) ; 

LEFT = 131 - IU-L+1) * 11; 
no I = T TG ROWS; 

LEW = L INEII+1 ) - L INE( n ; 

PuIt F I L F ( SYSPR I NT ) ED I T ( ( AN Y_TA BL F ( I , J i DO J=L fO U) » 

SUBSTRlTEXTfLlNEt I 5f LEN) ) 

{ CCL ( 2 ) , ( U-L + 1 I ( F ( 8 ) , X { 3 n 5 A ( Lf: F T n ; 
/* FOR THE ROW HEADING THAT WON'T FIT ON ONE LINE */ 

IF LEN>LEFT THEN PUT F I L F ( SYS PR I NT ) EDIT 
( SURSTRI TEXT ,LINEI I ) +LEFT, LEN-LE'FT I ) 

(COL(IU-L + l)’l‘{8 + 3)+2),A) ; 

END ; 

END; 

END OUTPUT_TABLE ; 

SEARCH abh; proc; 

DECLARE (COUNTY, CAT.TYPE, BASE.TYPE) PIC'99', 

CCD PIC '999' , 

(HOLD, COMPUTE D_LEVFL ) FLOAT, 

FOUND FIXED Til nary INIT(O), 

CHAR_HEADER CHAR(80) VARYING, 

1 SFG OVLY BASED! SEG_PTR ) , 
i ^ 2 (WHICH TABLE, SEGMENTS) FIXED 8TN(15), ; 

IMPORTANT - THE ORDER OF ITEMS IN THIS ARRAY MUST BE CONSISTENT 


/« 

/* 

/« 


•WITH THE ORDER OF ITEMS IN I TEMS_AND_OFFSE T ; THE ROW NUMBER 
CORRESPONDS TO THE CHARACTERISTIC NUMBERS THAT ARE INPUT, 

NEW CHARACTERISTICS SHOULD BE EASY TO ADD TO THE END. 

TaIblE SFGHFNTS (0:MAX_CHAP S, 2) FIXED BIN(13) INIT( 




Ot 
8 , 
8 , 
8> 
8 , 
9» 
9t 

14, 

15, 
13, 
25 f 
27, 
21. 
27, 
37, 
37, 


0 , 

I » 
I, 
1 , 
l» 
1 , 


L , 

1 , 


/* dummy */ 8, Ir 

/>!« ITEM 2 */ 8, I, 

ITEM 4 a , 1, 

/* ITEM 6 */ 8, 2» 

/♦ ITEM a */ 8, 2, 

ITEM 10 >1'/ 9, 2, 

I TEM 12 */ 14,1, 

/»= ITEM 14 */ 15, I, 

/* ITEM 16 */ 17, 1, 

/« I TEM 13 25 , I , 

ITEM 20 ’!'/ 25, I, 

I TEM 22 */ 27 , 1 , 

/t- I TEM 24 ♦/ 27 , 1 , 

/>!< ITEM 26 37, 1, 

/* ITEM 28 */ 37, 1, 

/# ITEM 30 */ 37, 1, 


ITEM 1 */ 

/* ITEM 3 */ 

■7*!'. ITEM 5. *7: 
ITEM 7 *7 

7T ITEM 9 
/* ITEM II «/ 
/* ITEM 13 
/♦ITEM 15 ♦/ 
/♦ item IT ♦/ 
/♦ ITEM 19 *7 
/♦ ITEM 21 ♦/ 
/♦ ITEM 23 ♦/ 
/♦ ITEM 25 ♦/ 
/* ITEM 27 ♦/ 
/♦ ITEM 29 «/ 
/♦ ITEM 31 ♦/ 




-4'B , 

HUtlSLlST SOURCE 
U /- ITEM ?2 «/ 

LISTING 
3 8 , 

2, 

/* 

ITEM 

33 

*/ 

AP , 

1 ♦ 


1 TEM 

34 

«/ 

4 2 , 

1, 

/■E 

ITEM 

35 


A P , 

U i 

/* 

I TF.M 

36 


52 , 

L , 


I TEM 

37 

*/ 

5? , 

W 1 

1 » ' 

/« 

T T0M 

3 8 

ir-/ 

52, 

1 , 

/=«= 

ITEM 

39 



/* 

ITEM 

40 

*/ 

123 , 

1, 

7* 

ITEM 

41 


1 ? 1' 

1 , ' 

/<-, 

I TfM 

A2 

«/ 

123 , 

1, 

/=E 

ITEM 

43 


1 ? 3 , 
5 0 , 

1, 

/* 

ITEM 

44 

={=/ 


1, 

/« 

ITEM 

45 


L , 

/« 

IJFM 

46 

«/ 

•»“ , 

1, 

/* 

ITEM 

47 


59 , 

1 , 

/* 

TTE^' 

48 


60 , 

1, 

/* 

ITEM 

49 


0 0 , 

L , 

fn 

ITEM 

50 

*/ 

118, 

1, 


ITEM 

51 

*/ 

1 1 3 , 
118, 

1 , 
P , 

/« 

IPF'^ 

5 ? 


118, 

2, 

; 

ITEM 

53 


/•!= 
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PROGRAM DESCRIPTION 


(1 ) Hardware 

(a) Computer - IBM 370/158 

(b) Core Requirement - 128K 

( c ) Magnetic Tapes - None 

(d) Card Punch - Not required 

(e) Plotter - Not required r 

(f) Drum/Disk - 100 cylinders of disk-space required 

IBM 3330 Model 1 

(2) Software 

(a) Operating System - OS/360 Release 21.8, MVT & HASP II 

(b) Programming Lanuage - PL/I Optimizing Compiler VIR2.3 PTF61 

(c) Type of Run - Batch 

(d) Library Subroutines - Standard Optimizing Compiler 

Subroutine Package 
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In the short history of automated geographic analysis 
and computer mapping, there have been a number of 
prog ramming effort s which have been directed toward 
3 i|i 3 lysis 3 nd display of spstsal data with a computar 
system. ARiS is a more user-oriented adaptation of 
the best available marketed software. The advantages 
of graphics produced by the computer over the pro- 
ducts of hand cartography fall into three main cate- 
gories: 

1. Increased manipulation capabilities of geographic 
data. 

2. Faster production of cartographic displays. 

3. Realization of a reduced cost per unit of infor- 

mation provided. 

Cartographic analyses and displays that will most likely 
benefit from the use of computers have one or more 
of the following characteristics: 

1. Many maps or analysis outputs for the same geo- 
graphic area are needed at one time. 

2. Maps or analysis for the same geographic area are 
needed on a recurring basis over a period of time. 

3. Uniformity of a map and printout appearance for 

the display of many types of data is desired. 

4. Utilization of highly accurate data is desired, with- 
out the necessity of high cartographic resolution 
on maps. 

5. A great number of maps need to be prepared in 

a short period of time. 

6. Complex geographic analysis is required, involving 
the rescaling of data from a single map or a 
combination of several data variables for a common 
geographic area. 



This booklet is intended to introduce the content of 
ARilS as it is presently structured, to indicate the 
planned evaluation of its capability, and to illustrate 
the method of interaction with the system by planners 
and others having a need to make decisions based on 
geographic alternatives. 

The basic ARIS software is operational on a large 
scale IBM System 370 computer. All geographic and 
cartographic programs are written in the FORTRAN IV 
language, thus permitting a certain level of system 
portability to other large computer installations. Soft- 
ware dealing with census-based population and housing 
da^a tabulations and searches has been written in the 
PL|/1 language to permit use of the high speed infor- 
mation processing available with the indexed-sequential 
access method (ISAM) of structuring data files. This 
software and data structuring scheme is less portable. 
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inquiries RELATIVE TO ARIS SHOULD BE 
DIRECTED TO THE ALABAMA DEVELOPMENT 
OFFICE, STATE PLANNING DIVISION 
MONTGOMERY, ALABAMA 




GEOGRAPHIC DATA BASE CONCEPT 


The primary method in ARIS for acquisition, 
storaqe, and utilization of geographic data is 
through the use of regularly-sized units of 
area, called grid cells. Important to the way 
the software functions, is the structure of 
the data base; the method of data storage for 
sofjtware retrieval and utilizeMon. Areal infor- 
mation, or variables, to be stored, such as 
topography or soil type, are geographically 
oriented, while computer storage is sequen- 
tiajlly oriented. A system, or scheme, must 
exist which relates these non-similar orien- 
tatjlons. This is accomplished by the use of 
a locational reference in the data. 


Suppose a large geographic area was subdivided 
inio many small sub-areas. Each sub-area could 
then be more definitively described than the 

original area, because less variation would be 
likely to occur. A further reduction in the 
size of a sub-area would further increase the 
possibility of unique definition. At some point, 
say one acre, a specific data category, such 

as "soil type" within the overall variable "soil" 

could be identified as that soil type most repre- 
sentative of the soils within the acre. This soil 
type could be considered to be discretely repre- 
sentative of the variable soil within the smaller 
areal unit. If many of these areal units were 
placed side by side, both horizontally and ver- 
tically, with each representing a discrete soil 
type, a large area could be represented regarding 

the variability of soils. Similar capture of other 
geographic variables, such as slope, surface 
water, ground water, etc. (each separately), 
permits the complete geographic description 
of an area to be utilized by computer soft- 
ware. This system of contiguous areal units 
to represent a varissble, such as soils, slope, 
or surface water, is the design basis for the 
ARIS geographic data system. 
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Si'nce the earth has c' generally rounded sur- 
fa|ce and since most cartographic representa- 
tibns of its surface are flat, another mismatch 
exists. Projections of surface features, bound- 
aries, and their locations to a flat surface 
receive distortion from the true situation. The 
Universal Transverse Mercator (UTM) system for 
locating geographical attributes minimizes pro- 
je'ction distortion with respect to the State of 
Alabama - Alabama is nearly in the center of 
UTM zone sixteen. For this reason, grid ceils 
based on the UTM system have been chostii 
for use within ARIS. It is expected that each 
data base relating to the entire State or used 
for St ate -wide analysis will encompass an area 
of one-fourth of a square kilometer (one half 
of a kilometer on a side). At the same time, 
those data bases having regional importance 
are expected to encompass an area of one-siX" 
teenth of a square kilometer (one quarter of 
a kilometer on a side). All grid cells are to 
be related to a single unique extreme north- 
west point on a UTM grid overlaying the entire 
State. This will permit all separate data basos 
to be inter re I at able with minimal boundary con- 
flict. 

The next two pages provide pictorial reviews of 
grid cell selection, data capture, and a review 
of English to Metric conversions. 
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REVIEW OF METRIC TO ENGLISH CONVERSIONS 
AND THE ARIS USE OF THE UTM GRID 


, 1/2 km 

(S6a nwttra) 


If— 1/4 km — M 
(250 meters) 


_L_L* 


' 1 km = 247.1 acres 
^ 1/2 km^ ■= 61.7 acres 
1 1/4. km^ = 15.4 acres 



The Urriversal Transverse Hercator (UTM) 
grid was chosen for ARIS. It is based 
on a one kilometer square grid. These 
diagrams provide conversions from the 
one kilometer grid square to the English 
system of measurement. 


330 miles 
(581 km) 


-205 miles - 
(3^ km) 


U V TOTAL AREA = 51,609 mi 
(133,667 km^l 

EXTREME MEASUREMENTS OF STATE 
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GRID CELL CONCEPT OF DATA CAPTURE AND STORAGE 


In ARIS, one of the primary techniques 
for data capture and storage Is the 
GRID system. 




CELL (3,12) 

This ciell Is taken from 
row 3 and column 12. 


(2) A uniform grid Is laid over the study 
area and fixed to a base point, related to 
the Alabama base point, so that all future 
data can be aligned to the same grid 
within the UTH system. 







I 

i 

I 

I 

1 

I 

I 

(3) Codes are recorded Indicating the I 

data for a single variable for each cell. 

Recording begins for the cell In the 
upper lefthand comer and moves along 
the row to the right, as one would read. 

When a row Is completed, the process 
repeats, beginning with the left end 
of the next row. 



SOIL NUMBERS shown recorded for 
cells (1,1) rhrough (1,8). 


I 

I 


(4) Finally, daU when stored. Is accessed 
by the software and related by Its cellular 
(both geographic and computational) loca- 
tion. The software can relate the data for 
a specific cell from several data bases to 
aid In geographical analysis. For example, 
to find those locations having a specific 
soil type, certain slope characteristics, 
and quantity of surface water. 
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ARIS 

purpose and structure 


PURPOSE OF APIS 


One of the situations faced by pianning and 
decision-making personnel is that an abundance of 
existing information dealing with state and local 
problems may exist but usually is: 

1. Unknown or unavailable, 

2. In a form that is inconvenient or difficult to 
utilize, or 

3. Too much data from which to select those data 
items relevant to the problem. 

All of these concerns are compounded by the over- 
all problem of data manipulation cost. This is also 
known as the per unit cost for information provided. 



(1) OecIsion-iMker does not know a por- 
tion of his required Information already 
exists In another department. 




(2) Then there Is always some information 
In "list* form when the decision-maker 
needs this Information In graphic form 
or the Information Is at the wrong scale 
If It Is available on a map. 


(3) Finally, there Is the mass of pre- 
sently available Information concerning 
everything and In which nothing can be 
found. 
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APIS is a three-phased approach to reduce or eli- ^ 

minate these difficulties. This can be and is being ' 

accomplished by the development of an automated 
geograph ic analysis and computer mapping system 
which requires a minimum of user effort but pro- 
vides a maximum of assistance to the user. The j 

system is built around a computer accessible, uni- I 

formly structured, and self-indexing data base. A 
decision-maker, using both the APIS software and 
a complete description of the resources area (data 
base), can develop the proper relationships which 
lead to possible alternative approaches to the prob- 
lem. Iterations consisting of varied sets of views 
of the geographic and other resource information, 
coupled with an analysis of the importance and 
relationship of the information components can lead 
to feasible solutions. APIS is designed as a system 
comprised of a data base and a set of computer 
programs which, along with operating procedures, 
will work with the data to provide information in 
a form that is valuable to the decision-maker. 



APIS HAS THREE MAIN COMPONENTS: 

<'.) Data bases 

(2) Data gathering aids and data base manipulation programs 

(3) Information processing programs. (These programs are directly responsible 
for handling user reguests for Information and/or analysis). 

Along with these components are provided operating procedures for using or con- 
necting the components. 


uimftJBii'.ii . "iVii 
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Now that the geographic nature and structure 

of the ARIS DATA BASE have been established, a 
simple discussion of how an ARIS user might 
solve a problem can be introduced. 


FLOW DIAGRAM OF ARIS PROBLEM 

(1) User Identities a problem that may be 
solvable, or at least become better under- 
stood. by using the ARIS geographic/grid 
or CENSLIST/HOUSLIST search approach. 



phAILAatPATA, 

Isoius 0T 

InWI&POKTATKbMa' 
IsL.OF'e 0" 


L 



(2) User lists data to be used as criteria 
for solving the problem and checks for avail- 
ability in the ARIS data base. 


N 


\ 
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(3) User establishes an algorithm (describing 
the relationship between the involved vari- 
ables) for obtaining solution to the problem 
from available data. At this po'nt, the 
decision-maker may determine: (a) that other 
variables are pertinent and return to step 2, 

(b) that necessary data is not available and 
mut be acquired and inserted prior to con- 
tinuing, (c) that the geographic/grid 
approach is not suitable and terminate cur- 
rent efforts, or (d) that ARIS supplies a 
needed tool and continues the process. / 


1, check soils file for type 4 
ii. if true, test for available 
transportation 

search surrounding cells for 
small slope value 






/ 


10 


MAP 

STOP 
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/ 





(6) Output Is developed and returned 
based on the user's requirements. This 
may Include printed graphics, plotted 
graphics, and printed lists, or com- 
puter files. 





ARIS DEVELOPMENT IS DIVIDED INTO THREE PHASES : 


I 


ARIS 


I mplemented 



ARIS 


Currently under development 
( June 1976 ) 



ARIS 


Future considerations to 
improve and extend the 
ARIS capability. 


The configuration of each ARIS phase is explained in 
the following pages. 



STRUCTURE AND PHASES OF DEVELOPMENT 


PHASES 

OF DEVELOPMENT 


ARIS I 


DATA BASES 

o 


Census 

Base 


PROGRAMS 

<z> 


FILGEN 

GRID-GRIDGRAPHIC 

FLEXIN 

GRID MERGE 

MULTFLEX 

MAPMERGE 

WirCOM 

SEARCH 

GRID PLOT 




— - — • — 

Polygon 

Base 


BASE MAP 
AREA MAP 

contour/proximal map 


CENSLIST 

HOUSLIST 


ARIS II 


USER AID PROGRAM 


ARIS III — • Bibliographic 

I Base 


ARIS is built by Data Bases and programs. The diagraai above 

way these are organized and their present state of development according 

to the phase they correspond to. 








n [ 


ARIS 


nms 

OF OeVELOPME»(T 


cy 


I»TA BASES 

o 


o 


ARIS H 


ARIS I 


ARIS II 



This phase consists of a set of separate programs 
which deal with census data or geographic data. 
Included are: computer programs developed at 
Aub’jri to access census population and housing 
data iCENSLIST/HOUSLIST) and acquired programs 
which work with GRID or POLYGON data bases 
(ARIS - GEOGRAPHIC). 
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Grid Base 

This type of data base has been previously 
explained in the "Grid Cell Concept of 
Data Capture and Storage". It consists 
of nine progran.s; 

(1) FILGEN - a program for efficiently 
storing grid cell information from cards 
or tape into new computer files for re- 
use by other grid analysis software. 

(2) GRID GRAPHIC - is used for producing 
graphic output for geographic areas in 
the form of printer graphics. The pro- 
gram can also produce frequency plots, 
level calculations, and a series of 
scale variations. 

(3) FLEXIN - this GRID GRAPHIC option can 
be used to model data derived from a sin- 
gle variable file (SVF). Simple weighting 
factors or more sophisticated algorithms 
can be applied to specific data prior to 
it being stored or mapped. 

(4) GRID MERGE - can merge several single 
variable data files simultaneously or 
separately into an existing or newly 
created multi-variable data file (MVF). 

All data to be merged must cover the same 
geographic area. 
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Polygon Base 

Data can be obtained for Irregularly 
shaped areas formed by the grouping of 
square grid cells. These groupings can 
be manipulated In much the same manner 
as the square grid cells. A polygonal 
data base can be more accurate than 
cellular data, but computer manipulation 
thereof Is far more time-consuming and 
hence, more costly. Programs: 

BASEMAP - a program to create the Base 
Map Image File to be utilized by the 
next two programs , AREAMAP and CONTOUR 
MAP. This Is the first step when dealing 
with polygon data. 



AREAMAP - Is designed to Input the Base 
Map Image File to produce thematic choro- 
pleth maps on a standard chain line 
printer. A variety of available user 
options permit scaling, shading, legend 
association and creation of a matrix 
file, containing the absolute values 
associated with each polygon cell. 


CONTOUR/PROXIMAL MAP - is designed to 
Input the Base Map Image File to produce 
contour and proximal maps. It also con- 
tains special user options to enhance 

the value of the output Information. f V 




Census data is available from the system 
in a list form derived from the Census 
Bureau data tapes. 


The ARIS census programs, CENSLIST/ HOUS- 
LIST, have been developed to acquire 
meaningful information from a restructured 
set of U.S. Bureau of the Census data 
files. The files have been restructured 
by eliminating the many blank data ele- 
ments found in the basic census files and 
then realigning the data into an Indexed 
Sequential Access Method (ISAM) data base. 
The realignment peimits very high speed 
processing to be p<irformed. CENSLIST and 
HOUSLIST prepare tabular output consisting 
of: (1) mere listings of portions of the 

a base, (2) aggregations of data from 
two or more Census County Divisions (CCD), 
or (3) the result of searching for those 
CCD's meeting certain criteria, e.g. CCD's 
in which fifty percent or more of the 
population is eighteen years of age or 
younger. 


Polygon 
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awTom/mwiiM. nv 
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Table (Blank) County, Census Division 5 
Total Population By Age and Sex 
Male Female Under 3 







ARIS us«.' must first select type 
of date needed to solve a pro’ll em 


ARIS GRID/POLYGON COMPUTER SOFTWARE \ 
User needs to manipulate geo- 
graphic data. 


r.ENSLIST/HOUSLIST 

User requires Information concerning 
census population data (CENSLIST) or 
housing data (HOUSLIST). 


User defines and keypunches a request 
onto computer cards. 


User selects to work with GRIu 
or POLYGON data. 







A TYPICAL APIS 


PROGRAM JOB 


SUBMISSION 



The above job submission cirJ deck Is typical for use of APIS I. The user must not 
only prepare all eleven cards, but have some understanding of the meaning of the 
material to be Included therein. While cards 1, 3, and 11 are relatively typical 
syslem job control Instructions, the remainder are not. In card 2, the user must 
specify both the APIS program to use and the correct cataloged name of the data 
base. Card 4 Is us'id to specify output type (MAP) and cards 5, 6, and 7 provide 
a heading or title I'or the output. Card 8 Is used to describe the output. The 
first Item represents the card type (1), the width of the map In grid cells (125), 
the height of the map In jrld cells (95), the height of the cell In printer lines 
(4 - one half of an Inch), and the width of the cell In printer positions (5 - one 
half of an Inch). Card 9 denotes that a mapping function Is to be performed (3) 
which has eight levels of detail. Card 10 serves to signal an end of Input data 
condition to the processor. 
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ARIS II 
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User Aid Program 



Phase II of the 
processor softwar 
effort expended I 
user will merely 
a program job s 
of the individua 
process reduces 
the APIS user 
control language 


0) An ARIS user will Interact with the 
preprocessor, via a terminal, to describe 
the problem to be solved, the algorithm 
to be used, and the involved data base(s) 


ARIS CONTROL PROGRAM 


(2) After completing the dialogue wHh 
the preprocessor, the ARIS user can ‘.urn 
control over to this program which will 
build the input program request. 


(3) A computer is used to process the 
request formed by the ARIS preprocessor 


(4) The ARIS user rrcjivt* 'is output 
at a later time b< m'.il, courier, in 
person, or in some cases, by i>'ay of 
the computer terminal. 




I 




n 


A possible APIS II dialog between the decision- 
maker and the preprocessor to a program job 
submission which leads: 


ARIS PREPROCESSOR 
Program Selection Step 


DECISION-MAKER 


b. Alabama Resources Information 
Alabama Development Office 
Hap Output for Alabama 



System^ 
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Bibliographic Base 

Possible future additions to improve system capability 



Bibliographic data will Include a computer Indexed general bibliography for the 
state of Alabama. 



A series of computer programs for storing and retrieving bibliographic data con 
earning the publications dealing with the State of Alabama. 







ARIS has been designed to provide a minimal effort 
system for collecting, storing, and utilizing geo- 
graphic Information on land resources, economic 
activity, population and other material which 
becomes more meaningful and useful when given 
a spatial dimension. 

Its primary task is to retain and operate on geo- 
graphic data stored in a "grid" form. This grid 
form is based on overlaying a study area with 
even ly -spaced grid lines to form egual-sized cells. 
Information about these cells is then recorded in 
a uniform manner available to the computer to 
form a data base component. 
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PREFACE 


This booklet, one In the series of ARIS publ icctions , 
has been written to guide the system user in the 

encoding of geographic information for pro- 
cessing by the ARIS computer. For an overview of 
^he ARIS system and its purpose, the reader is 
invited to read the booklet "An Introduction to 
ARIS", copies of which are available from ^tate 
Planning Division of the Alabama Development Office. 

At this time, data entry to the various ARIS data 
bases is accomplished computationally after manual 
encoding has been completed. While 

automated procedures { e . g . . J®fl®T„®"Jhev^a?e’expei- 
ral "x-v" digitizer) are available, they are expen 

sive As funding becomes available and 
libation warrant^ automated procedures for ARIS data 
encoding will be developed and instruction manuals 
will be prepared. 



INQUIRIES RELATIVE TO ARIS SHOULD BE 
DIRECTED TO THE ALABAMA DEVELOPMENT 
OFFICE, STATE PLANNING DIVISION, 
MONTGOMERY, ALABAMA 
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GEOGRAPHIC DATA BASE CONCEPT 
Th'. pH.ary laethoj In 

^;^^s;Jl^rl;urorr^;:r^Ine5^ t «;’L 

tant to tjja 1? "Ua storage for 

rort.rre'fetHeval and ot'l Uatton. ^ rtor'a^rfS^to?.- 

fn'::irrri:r;ia“r!:bnips^ 

ibr^grtsTiasHiiiSi:^ «ir 

^ un^'routes’ these "'“'f t '?e Ure. in 

accomplished by the use of a locational rerere. 

the data. 

Suppose a large geographic area were subdivided into 
many small sub-areas. Each sub-area could then be 
more definitively described than the original 
because less variation would be likely to occur, 
further reduction in the size of a 
ther increase the possibility of 

At some point, perhaps one acre, a specific data cate- 
gory, such as "soil type" within the overall variable 
"soil" could be identified as that soil type most 
r eor esen t a t i ve of the soils with'^n the acre. s 

soil type could be considered to be ‘^^scretely repre- 
sentative of the variable soil within the small areal 

unit. 

If many of these areal units were placed side by side, 
both horizontally and vertically, with each '"®P’'®" 
seJting a discrete soil type, a large area could be 

represented regarding the “L^les such 

Similar capture of other geographic variables, such 
as slope, surface water, ground water, etc. leacn 
seoaratelv), permits the complete geographic descrip 

/"ArntrgnSJl'lJ^^^inrfrjrne^? prn? a 

Since the earth has a generally rounded =4' 

since most cartographic representations of Us surfa 

are flat, another mismatch exists. Projections of 
ciirface features, boundaries, a.id their locations i 
I nat surface rJcei.e atstortion f.o. the true situ- 
ation The Universal Transverse Mercnor (U.M) system 
for locating geographical attributes mi.iimizes pro- 
jection distortion with respect to the State or 
Alabama - Alabama is nearly ^ " tjl® ^®"ter 
sixteen. For this reason, grid cells based on tne 
system have been chosen for use within ARIS. 



It Is exoected that each data base relating to the 

or used for jU'u! ieter 

encompass an f “,;',?"er'on rtlSe)! At the same 
i?:i.'’“t'hLfdat5"ases ha.dn, regional Importance are 

ro'„rrl'^iom'eter”'(25(l met’er's on a sjde). All 
orid cells are to be related to a single unique 

nrt,rei?:u! ^rrm?r2uie;:?i;i 

to ‘•ti interrelatable with minimal 
2; ndaJrcoJflict. Theoretically. cen data 
Is related to the UTM system zone 16, then they 

Tre lltJ^atScalty '"t':rA'5*t$lnd“o 5 t"°s»“ ' 

conflict. From a practical standpoint, some 

conflict could occur. 

The next few pages provide pictorial review of 
arid ceil selection, data capture, ano a re.le. 

Of English to Metric conversions. 



REVIEW OF METRIC TO ENGLISH CONVERSIONS 
AND THE ARIS USE OF THE UTM GRID 


(500 meters) 


The Universal Transverse Mercator 
(UTM) grid was chosen for ARIS. 
These diagrams illustrate the 
relationships between the English 
system of measurement and the UTM 
system as it concerns ARIS. 


TOTAL AREA • 51.609 mi 
(133,667 km^ 


EXTREME MEASUREMENTS OF STATE 









AN INTRODUCTORY SUMMARY OF THE GRID 
CELL CONCEPT OF DATA CAPTURE AND STORAGE 


In ARIS, one of the primary 
techniques for data capture 
and storage is the GRID system 


(1) A study area is selected 
and stable base maps containing 
needed information are obtained 


This cell is taken from 
row 3 and column 12. 


(2) A uniform grid is laid over 
the study area and fixed to the 
UTM coordinate system base point, 
related to the Alabama base point 
{Official Alabama Base Point: UTM 
easting of 350,000 meters and 
northing of 3,879,500 meters) , 
so that all future data can be 
aligned to the same grid within 
the UTM system. 





(3) Codes are recorded onto an 
encoding form, indicating the 
data for a single variable for 
each cell. Recording begins 
for the cell in the upper left- 
hand corner and moves along the 
row to the right, as one would 
read. When a row is completed, 
the process repeats, beginning 
with the left end of the next 
row. The information recorded 
on the encoding form is then 
key punched for computer pro- 

cessing. ^74455544 


SOIL NUMBERS shown recorded for 
cells (1,1) through (1,8). 


(4) Finally, data when stored 
is dcc6ssed by the softwdre and 
related by its cellular (both 
geographic and computational) 
location. The software can 
relate the data for a specific 
cell from several data bases 
to aid in geographical analysis. 
For example, to find those loca- 
tions having a specific soil 
type, certain slope character- 
istics, and quantity of surface 
water. ^ 
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The ARIS Grid System 
Data Encoding 
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DEFINING THE STUDY AREA 


The first step to encoding geographically disposed 
variablesjs a definition of the area to be studied. 
First, a map is chosen which will serve as a "Base- 
map" for all geographically identifiable variables 
which are to become part of the computer's informa- 
tion system. This chosen "Basemap" must be of a 
scale which will adequately allow for the necessary 
detail of the chosen variables to be acquired. When 
variables are to be added, determine if all or part 
of the "Basemap" is necessary for the study or stu- 
dies which eventually may be necessary, and draw the 
outline of this study area on the "Basemap". 



! 
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SELECTING THE BASEMAP GRID CELL SCALE AND SIZE 


There are two important 
the grid cell scale and 
desired accuracy of the 
desirability of certain 


considerations in choosing 
size. The first is the 
study. The second is the 
map cell sizes. 



Selecting the scale of the grid cell (the amount of 

Ltual iLd area that each a gl^id 

tical to the analysis of an area. Too large g 

causes excessive generalization of too small 

a grid requires more data to be encoded than is 
needed, a waste of time and money. Since the size 
of vhe cell determines the accuracy subsequent 
analysis it Should be calculated in light of the 
aJLracv required. On small applications where high 
accu^lcj H’re^'lred. cells represeetlng '? "dters 
by 10 meters of land area have been 
results On large scale studies, grid cells of lOO 
meters by 100 meters of land area have been success- 
fully used to produce a more generalized analysis. 


It is expected that each data base relating to the 
intlrp Statr or used for state-wide analysis, will 

of one-sixteenth of a square I' 

on a side). Multi-county or single county 

would usually use the one-fourth of a square ^ilo- 

mptpr cell While nearly anv cell size is possible, 

rdStbU IricuS;; of , s5o,re 

sixteenths equal one-quarter) will permit 

aoareqations from one cell scale to another to 

p|?fo?mcd computationally alJsil’jan be 

example, a data base for state-wide 
formed directly from a set of regional data bases 
because one is a precise sub-division of the °bher. 
A scale hierarchy consisting of a 

one-fourth of a square * °I*®:!^a^sauare 

a square kilometer, one-sixty-fourth of a square 
kilometer etc., will permit a high level of data 
Collection and encoding economy along with maximum 
analysis capability. 
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OBTAINING THE CORRECT UTM MAP COORDINATES 


The casual user of nups may find the Initial exercise 
in obtaining UTM coordinates to be a fearful experi- 
ence. This is not really the situation. While cer- 
tain equations are presented, they are included only 
for background purposes. The vast majority of effort 
is merely that of table lookup and the making of a 
few marks on the maps. In addition, current maps of 
federal preparation (U.S. Geological Survey, U.S. 
Army, etc.) normally contain UTM reference marks and 
therefore are not fully subject to the contents of 
this sub-section. 

Two appendices (A and B) have been included for use 
in obtaining the UTM coordinates. Appendix A con- 
tains tables covering all latitudes within the State 
of Alabama. These tables are structured in ten min- 
ute intervals from 30 degrees through 35 degrees 
latitude. Contained within are the UTM coordinates 
for various longitudes east and west of the 87 cen- 
tral meridian and intersecting with the 10 minute 
intervals of latitude. Appendix A also contains an 
example of the use of these tables. Appendix B con- 
tains tables similar to those found in Appendix A 
except the interval sizes are 7.5 minute rather than 
10 minute. 

In general, to incorporate UTM reference marks onto 
an existing map, only a few steps are necessary. 
Following the detailed example in Appendix A and 
using the tables from either Appendix A or Appendix 
B, obtain the grid coordinates of the four corners 
of the map. At each corner compute the grid dis- 
tances to the first easting and northing grid lines, 
(these are in latitude and longitude) falling wholly 
within the sheet. This is a matter of simple sub- 
traction and conversion to inches at the drafting 
scale of the map. Round off the resultant inches 
measurement to the nearest one-hundredth of an inch. 
Attempts at precision finer than one-hundredth are 
generally fruitless. Measure these distances 
directly on the graticule neatlines (the network of 
lines of latitude and longitude upon which the map 
is drawn) of the sheet near the map borders. (Theo- 
retically, this is incorrect because these are grid 
distances obtained by taking the differences of grid 
coordinates and therefore should be measured in the 
direction of the grid which is at an angle to the 
graticule; but practically, for the six degree trans 
verse Mercator z'-nes, the error in doing this is 
slight and usually may be neglected. The neat- 

line plotting distances may be obtained by dividing 


the grid plotting distances by the cosine of the 
mean grid declination of the sheet. The maximum 
grid declination at the edge of the overlap of a 
zone Is little more than two degrees, forty minutes 
and with a plotting distance of three inches, the 
calculated correction obtained is approximately 
0.003 inch. For smaller declinations and shorter 
plotting distances, the correction is even less. in 
the majority of cases, the correction is merely 
0.001 inch. Since for ARIS purposes, precision 
beyond the nearest 0.01 inch is considered unneces- 
sary, the noted correction for error caused by decli- 
nation is even less necessary.) 



The UTM reference marks should be placed on the map 
near three or four of the corners at intersections 
of even UTM kilometer (1,000 meters) points, as 
3,201 ,000 is co«"rect while 3,201 ,060 is incorrect 
(last three digits must be zeros for meter to whole 
kilometer conversion). Interpolation will be neces 
s« *y in the measurement process. Whole kilometer 
reference marks will insure proper alignment with 
the Alabama Base Point. 


APPLYING THE CHOSEN GRID TO THE BASEMAP 


A grid matrix must be drafted onto the basemap or 
drawn onto a transparent plastic sheet and then 
overlaid on the map. It is preferable to maintain 
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FIGURE 1 


It is suggested that several basemaps be printed with 
the superimposed grid matrix, so there will be at 
least one basemap for each variable to be encoded or 
if transparencies are used, they should be of stable 
material . 
















CLASSIFYING INFORMATION VARIABLES 


There are two basic types of encodable data - quan- 
titative and qualitative. Normally, quantitative 
data is recorded with the actual quantitative value 
most symbolic of the cell. For example, topographic 
elevation would be coded as the actual elevation 
(estimated in feet or meters) at the center of the 
cel 1 . 

Qualitative data is usually recorded by identifica- 
tion with a representative numerical code. \or 
example, the variable "soils" might be sub-divided 
into^the following sub-variable classes, represented 
by the indicated code numbers: 

Variable - "Soils" 

Sub- Var i abl e £o^ 

Clay I 

Alluvial \ 

Rocky Terrace 3 

Sloping Brown Forest Soil 4 

Flat Brown Forest Soil 5 

Bedrock ® 

In this example, a given grid cell with clay soil 

would be recorded as a 1 for that particular soil. 

As another example, the variable "land use" might be 
sub-divided as follows: 

Variable - "Land Use" 

Sub-Variable Co^ 

Residential !1 

Commercial and Services 

Industrial 

Transportation, Communication, 

and Utilities , , c 

Indu trial and Commercial Complexes 

Mixed Urban or Built-up Land 
Other Urban or Built-up Land 
Public and Institutional 
Cropland and Pasture 
Orchards and Horticultural Areas 
Confined Feeding Operations “ 

Other Agricultural Land 

Herbaceous Rangeland „ 

Shrub and Brush Rangeland 
Mixed Rangeland 


Deciduous Forest Land 41 
Evergreen Forest Land 42 
Mixed Forest Land 43 
Streams and Canals 51 
Lakes 52 
Reservoirs 53 
Bays, Estuaries, and Coastal Waters 54 
Forested Wetland 61 
Non-forested Wetland 62 
Dry Sal t FI ats 71 
Beaches 72 
Sandy Areas Other Than Beaches 73 
Bare Exposed Rock 74 
Extractive 75 
Transitional Areas 76 
Mixed Barren Land 77 


In order to maintain a state-wide consistency in the 
codes utilized to represent the various information 
variables, it is requested all ARIS users coordinate 
their efforts with State Planning Division of the 
Alabama Development Office. A centralized point of 
information exchange r aid all users in meeting 
their needs. 


ENCODING THE VARIABLES 


It is useful to visualize geographically coded infor- 
mation in three dimensions (x, y, and z), where x 
represents the row of the data cell, y represents the 
column of the data cell, and z represents the geo- 
graphically disposed information within the data cell. 
In other words, the point (x,y) represents a two- 
dimensional location on a map surface. The third 
dimensional indicator, z, represents some geographical 
characteristic associated with that location. Instead 
of coding x, y and z coordinates for each cell, a more 
efficient scheme was devised whereby x and y are 
inherently defined by their respective row and column 
order or sequence in the matrix, and the z sub-vari- 
able value is recorded according to its respective 
code value. Remembering that keypunching must follow, 
the data must be coded in correct order and follow a 
specific format necessary for the data being coded. 

The format depends on the number of digits used to 
represent the data variable. Coding forms used for 
this purpose may vary according to the desired for- 
mats. Two examples are shown as Figure 2, and are 
used to encode variables represented by one and two 
digit identifiers, respectively. 
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FIGURE 3 


If the same 90 by 90 Basemap represented a variable 
identified with two-digit codes, the same 

number of rows would fit on a coding sheet, but only 
30 columns of Basemap data would f’t on the JO card 
columns of the coding sheet. 

sheets would be required horizontally as well as 
vertical ly . 

Encoding geographic information from a Basemap begins 
with the cell in the upper left corner of the 
tangular Basemap matrix, or of a partitioned Portion 
of the Basemap matrix, as shown 4. (i.e.. 

the cell in the 1st column of the 1st row) ^nd pro- 
ceeds across the row (i.e.. the cell in the 2nd co 
umn of the 1st row. the cell in the 3rd column of 
the 1st row. etc.) until all cells 
matrix or of the partitioned portion of the matMx 
are coded to the extreme right edge °f/^® 
area or sub-area being coded. The cells lo the 
second row are next coded in the same way. etc. As 
mentioned earlier, cells outside 1^^®. 
within the matrix are left blank. Ihis tells the 
computer that the cells are "outside" ^^® ® 

If the Basemap is large and has been 
sub-areas, as in Figure 4. when the upper left sub- 
area has been coded and the first coding form is 
finished, a second coding form is begun for ^1’® ^®'^‘ 
tiJally adjacent sub-area. This process is continued 
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the entire Basemap is coded. .T^®. ^ ^ 
ntial order is arbitrary, but it should be uni 
for a project and must be remembered, since 
keypunching the cards must be sorted 
ow order. As noted earlier, physical attachment 
ding forms into strips of thirty row forms wil 
e the possibility of out-of-sequence data. This 
ed with accordian folding of the long strips 
still permit ease of handling. 

example, the study area (outlined J" 

) shown as Figure 4 has been defined and a grid 
ay has been superimposed. If this data file 
..cor 4 cn rpnrp<;pnt the variable soils , sub 


The numbers in the map 
correspond with those 
in the the encoding form 


FIGURE 4 
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Using the single digit GRID encoding form, the grid 
cell rows can be encoded as shown in Figure 5. Note 
that non-study cells in the first row are left blank 
Note that in (2,9) (i.e., row 2, column 9) where the 
cell contains two soil types, the soil type repre- 
senting the greatest area within the cell has been 
chosen as that soil type most representative of the 
entire cell. When an even split between two sub- 
variables exists in a cell, enter the code of the 
variable on the right (rightmost) or the code of the 
variable on the bottom (lowermost) of the cell. See 
the example - 


2 would be used as the 
sub-variable if only 
primary characteristics 
are used. 


FIGURE 5 


FIGURE 6 
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An alternative method utilizes separate setsof forms 
to encode secondary and teriary characteristics. With 
this method, data entry similar to that shown in 
figure 5 would be performed, except the sub-dominate 
information would be recorded. 

While both of the presented methods for encoding 
sub-dominant information are feasible for use in the 
recording process, they do increase processing prob- 
lems during the keypunching operation. Unless 
extreme care is exercised, it is very easy to mix 
cards containing primary, secondary, and tertiary 
characteristics into a single, ill-arranged data 
deck. Since primary, secondary, etc. data must be 
entered into separate data bases, the best method of 
encoding data is that one which will help avoid mixed 
i nf ormati on . 

Figure 7 illustrates such a method. Notice the use 
of the "card number" portion of the coding form. 

Card columns 75 and 76 are used to record the coding 
form sheet (or page) number. Card columns 77 and 78 
contain a map row number related to that encoding 
form sheet, i.e., the tenth map row encoded on that 
sheet would have a 10 recorded in these two columns. 
That tenth row might actually be the seventy-fifth 
map row but only the tenth row recorded on that par- 
ticular form. Card column 79 is used to denote the 
number of the card horizontally across the map row. 
Recalling the discussion with respect to Figure 3, 
information encoded on the first portion of d ceding 
strip would have a 1 placed in column 79, information 
encoded on the second portion of a coding strip would 
be so designated by a 2 placed in column 79, etc. 

Card column 80 contains a digit to designate the pri- 
mary (1), secondary (2), etc. dominance of the 
encoded characteristic. This coded use of card col- 
umns 75 through 80 will permit computational separa- 
tion and correct sequencing of the data cards prior 
to creation of a given data base. 
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FIGURE 7 
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Another procedure to be noted when encoding variables 
involves the representation of contour information. 
Data encoded from topographic contours, rainfall iso- 
lines, or other contour type information must be 
interpolated for each grid cell. The standard pro- 
cedure for encoding is to estimate the data value at 
the centroid (center) of the cell. Figure 8 shows a 
hypothetical topographic contour map and the inter- 
polated coding of the first row of information. Note 
that a two-digit coding form has been used for data 
representation . 


HYPOTHETICAL CONTOUR MAP 


FIGURE 8 







HIGHWAY INTERSECTION 


FIGURE 9 
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In Figure 9 the heavy line represents a segment of 
interstate highway while the dashed line depicts a 
state road. In the segment of the coded form, the 
codes utilized have been taken from the following 
set of single digit functional highway classifica- 
tion codes: 

Vari abl e Code 

Arterial 1 

Collector 2 

Local Roads and Streets 3 

The digit 6 has been used in this example to repre- 
sent a connected intersection of an arterial and a 
collector road. A multi-digit code could be uti- 
lized which presented the classification and the 
road number as 1085 would mean arterial, route 85 
or 2280 could represent collector, route 280. 

Figure 9 can also be used to illustrate the capture 
of point data. Cn the map segment (Figure 9), the 
interstate exchange would be of a point data type. 

The digit 6 at the intersection of row 4 and col- 
umn 7 is a possible example. Should a data base be 
constructed containing only information on inter- 
state highway interchanges, a digit 1 might be 
encoded into those cells in which an interchange is 
located (as a 1 in (4,7) in Figure 9). t 


KEYPUNCHING 


The encoding format must be consistent to aid per- 
sonnel performing the keypunching task and also to 
match the expectations of the computer programs 
which create and use the resulting data base. The 
same format must be used for all data encoded for a 
given variable. Figure 10 depicts several typical, 
feasible formats which are acceptable to the com- 
puter programs. 


Number of Digits 

Format 

1 (such as the "1-6" soil 

(60F1.0) 

types presented earlier) 

2 

(30F2.0) 

3 

(20F3.0) 

4 

(15F4.0) 

5 

(12F5.0) 

6 

(10F6.0) 


FIGURE 10 
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As pre/iously mentioned and Illustrated, only the 
first 60 card column locations are normally used 
to numerically represent data. Usually, 14 of the 
remaining 20 columns are reserved for an identifi- 
cation sequence. An example of an identification 
sequence is shown in Figure 11. 


CAtO NUMtiK 




FIGURE 11 


It is always wise to include a project identifica- 
tion number, the name of the variable being coded, 
and a card number which identifies the coding form 
page number, the map row number v<ithin that page, 
the number of the card horizontally across the map 
row, and the dominance designator ( 1 ,2 ,3 ,etc . ) . The 
detailed structure of the card number was described 
earlier. While the identification sequence is not 
monitored by the computer programs, it is very use- 
ful in assuring the data cards are properly sequenced 
prior to submission for the creation of a data base. 
Additionally, this identification procedure is useful 
to the determination of the contents of a box of old 
cards - sometimes it is prudent to retain a card deck 
for an indefinite period and to truly know what that 
deck contains. 




INTRODUCTION 

With the geographic data variables coded and key- 
punched, the next step is to generate a computerized 
data file. This file generation is accomplished by 
a computer program called FILGEN. This program is 
strictly storage oriented. No data manipulation can 
be accomplished by this program alone; it must be 
used in conjunction with other programs with manipu- 
lative capabilities for specific tasks. Two data 
description cards are used to ^<?®"tify the format 
of the keypunched data for submission to the FILGtN 
program. Once one or more single variable data 
files ha ’e been generated with this program, they 
are stored within the computer system (as a number 
of single variable data files, or through merging, 
as one or more mul ti - vari abl e data files) for recall 
and use by any of the various manipulative programs 
(GRID, SEARCH, etc.). Because of the storage aspect 
of such file generations, a FILGEN program may, or 
may not, be submitted simulataneously with a run 
whose purpose is data manipulation. 
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FILGEN DATA SPECIFICATIONS 


The structures of the data description cards are as 
follows : 

1. CARD NUMBER ONE (Required) 

Three specifications are made on this card: 

a ROWS - the number of rows comprising the 
input matrix (i.e., the data grid used to 
overlay the "Basemap" [the number of rows 
in the map]) . 

b. COLUMNS - the number of columns comprising 
the input matrix (the number of columns in 
the map). 

c. PRINT/NO PRINT - a printout option, useful 
for editing input data (usually in conjunc- 
tion with a grid map). The input data is 
printed row by row (10 columns per line). 

The input format is as follows (all entries must be 
ri ght justi fied) : 


Card Column 
Location 


Columns 1-5 


Data 


Example 


Number of rows 


1 2 3 4 5 



A map grid with 
125 rows is indi- 
cated as shown 


Columns 6-10 


Number of columns 


6 7 8 9 10 



A map grid with 
95 columns is indi 
cated as shown 


Columns 11-15 


"0"-column 15, 
print desired 
(if left blank, 
default is to 
print) 

"1 "-column 15, 
no print desired 


11 12 13 14 15 


If no print is 
desired, a "one" 
must be indicated 
as shown above. 





If a single variable geographic data file was being 
created for an area overlaid by a grid with 125 rows 
and 95 columns, as in the above example, and no print 
was desired, card number one would be keypunched as 
fol 1 ows : 


A 1?5 V -5 




II3IIIM 

1 1 1 1 1 1 II II 

1 1 1 1 1 7 1 7 

iimiit 

It u 14 n II II II II 

7 7 7 | 7 7 7 7 

1 1 1 1 8 1 1 1 1 1 1 1 

minniiniitiiiniiii 
1 1 1 1 1 1 7 7 7 1 1 1 

Mini 

11 tt M » II II 

117 111 

17333232 

33333333 


3333233332 

3 3 3 3 2 3 

11311133 

11111113 


3133133331 

3 1 3 3 i 1 

44444444 

44444444 


4444444444 

4 4 4 4 4 4 

3|3333|3 

33333333 


3333333333 

3 3 3 3 3 3 

imicii 

1 1 1 1 1 1 1 1 


1 i S 1 1 8 1 1 ( 1 

8 M 1 M 

77777777 

71117711 


7777771777 

11117 1 

11131181 

11111111 


1111118111 

8 18 111 

3S133|91 

13339333 


8913393319 

9 9 9 9 9 1 


N N 41 U «) U n « It U 41 M 

I 


I 1 11 I? II ' 1 14 <1 r 4 4 1 , :i n :• <, <1 N > ]i 4 u h k ii u :-i 44 41 41 4 i n 44 4 « ii ii h m <i u 


1. 1 IMI 44 II ;i r u [4 


• M 

n I, II It n II 
I I I 


] I ! 

3 3 3 

4 4 4 
3 3 3 
3 I I 
I 7 7 
1 1 1 


3 • 3 

I II n I] II , 1 *t >1 1 u 


2, CARD NUMBER TWO (Required) 


One specification is made on this card: the format 

of the keypunched input data. Since card number one 
specifies thf; number of rows and the number of col- 
umns of the input map matrix, the FILGEN program does 
not compute it. Since input data is read into the 
computer (to create a single variable file) row by 
row, and since the number of cells per row is known, 
all that is necessary to enable FILGEN to accurately 
identify and store the input data is the specifica- 
tions regarding each piece of data (i.e., the number 
of digits, whether representative codes or actual 
data, which represent each grid cell). In other 
words, all card two needs to do is indicate how many 
fields of information (each field representing one 
grid cell) are contained on a card, and how many 
digits are used to represent each field. An "F" 
format is used, according to normal FORTRAN notation, 
as follows: 


If| a single variable geographic data file was being 
created for an area overlaid by a grid with 125 rows 
and 95 columns, as in the above example, and no print 
was desired, card number one would be keypunched as 
follows: 


1£'5 95 


0 1 1 0 a 0 0 II 0 0 g 0 e 9 g 0 0 D 0 D 0 0 0 0 0 g c 0 0 0 M 0 0 0 0 0 D 0 0 0 M 0 g g 0 9 0 1 • 0 B 0 0 0 1 0 B t Q 1 1 1 M 1 1 a I a 1 1 g M 0 0 c 0 

1 } 3 4 ) I I I ! II II innn) If lui im n » ii 74 li u 11 » » u 31 33 ii 34 13 n 31 31 » 4 i 4 t 43 43 44 a u 4 ? 41 4 ! 31 31 « 33 34 33 si 31 si si it 11 1: 13 u u h 11 u » >i 11 it 73 m is ii ii 11 ii n 

It 1 1 1 11 1 1 1 n 1 1 1 M 1 n 1 1 1 1 M n 1 1 11 1 M I M t n n 1 1 1 M 1 1 n 1 1 1 1 1 1 1 1 M n n 1 1 1 1 n 1 1 1 II I n 
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2. CARD NUMBER TWO (Required) 

On’e specification is made on this card; the format 
of the keypunched input data. Since card number one 
specifies the number of rows and the number of col- 
umns of the input map matrix, the FILGEN program does 
not compute it. Since input data is read into the 
computer (to create a single variable file) row by 
row,, and since the number of cells per row is known, 
alh that is necessary to enable FILGEN to accurately 
iqentify and store the input data is the specifica- 
tions I’egarding each piece of data (i.e., the number 
of digits, whether representative codes or actual 
data, which represent each grid cell). In other 
wbrds, all card two needs to do is indicate how many 
fields of information (each field representing one 
grid cell) are contained on a card, and how; many 
digits are used to represent each field. An "F" 
format is used, according to normal FORTRAN notation, 
as follows : I 


(•’n"F"w"."d") 


n “ number of fields on each card 

w » number of digits used for ea:h field of informa- 
tion (field width) 

d =• number of 'ilgits to the right of the decimal point 
The card format is as follows: 


Card Column 
Location 

Columns 1-8 


Format 12345678 

"( I 6 I 0 I F I 1 I . 1 0 I ) 

60 fields (uata cells) 
per card, each repre- 
sented by 1 digit would 
be indicated as shown 


If 60 grid cell fields were punched on each card, 
each requiring one digit per grid cell, with no 
decimal point punched, and no digits to the right 
of any assumed decimal, card number two would be 
keypunched as follows: 


MIIIIMIIIIMmil 
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nlnni 

4 M H 4 4 4 

nnliSi 
limiii 
I m I m 
Mllllll 
smmi 
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Similarly, if 30 grid cell fields were punched on 
each card, each requiring two digits per grid cell, 
with no decimal point punched, and no digits to the 
right of an assumed decimal, the format would be 
indicated by (30F2.0). 






("n‘‘F"w". "d") 

n = number of fields on each card 

w = number of digits used for each field of informa- 
I tion (field width) 

d = number of digits to the right of the decimal point 
The card format is as follows: 

Card Column 

Location Data Example 


Columns 1-8 


Format 12345678 

~( I 6 I 0 I F I 1 I ■ I 0 I ) 

60 fields (data cells) ; 

per card, each repre- 
sented by 1 digit would 
be indicated as shown 


if 60 grid cell fields were punched on each card, 
each requiring one digit per grid cell, with no 
decimal point punched, and no digits to the right 
of any assumed decimal, card number two would be 
keypunched as follows: 


goiiiBiiimiiiMOiiiootgogatemiiiMimntDiiooiioDDDOiioooogiegotiiooieMiiooDoi) 
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Similarly, if 30 grid cell fields were punched on 
each card, each requiring two digits per grid cell, 
with no decimal , point punched, and no digits to the 
right of an assumed decimal , the format would be 
indicated by (30F2.0). 




Different multiples and fractions of data represen- 
tations are usable, also. For instance, if 15 topo- 
graphic elevation grid cell fields were punched on 
each card, each requiring four digits, the right- 
most digit in tenths of meters, with no decimal 
punched (but one assumed between the third and fourth 
digit), the format would be indicated by (15F4.1). 


EXAMPLE FILGEN DATA SUBMISSION 

The keypunched input data, prepared as described in the 
section of the manual dealing with data encoding, 
would be located subsequent to the two data descrip- 
tion, or parameter, cards. The total FILGEN data 
submission would appear as follows (note, for example 
brevity, only one of many encoded data cards is 


44444 444 o.; 


(80ri. 01 


1£5 95 1 1 

1 M 1 1 

lilt) 

Mill 

iiniiini 

1 1 1 M II nil H H It 

n 11 11 n .1 

1 1 n II II II 1 1 n n 1 1 1 n 1 1 1 1 1 II II 1 1 1 1 n II 1 II 1 II II 1 1 1 1 1 1 II 1 II II II II 1 

II n II « II Mann* 11 «»■ II II 

n 11 II n II I 1 1 n n n n 11 11 II n 1 n 11 11 1 11 n II II 11 11 II 11 n n n 11 11 1 

mil 

mmmi 

3 3 3 3 3 

3 1 1 3 1 3 3 3 1 3 : '3 

3333333333333 

3 3 3 3 

33333333333 

33331131331333313 

mil 

1 3 3 1 n 3 n ) 


33333333333,3 

n 3 3 3 3 1 1 3 3 1 3 3 

3 3 3 3 

33111113111 

13333111111333131 

1 4 4 « 4 

4444444444 

4 4 4 4 4 

4444444444444 

4444444444444 

4 4 4 4 

44444444444 

44444444444444444 
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3 3 3 |n n n 
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3 3 3 3 
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n (I I II n 1 

I 1 1 1 1 

1 1 1 n n 1 II n 1 

iinniiiiiii 

nil 

1 1 1 1 1 1 1 1 1 1 1 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

inn 

1111111111 

11111 

11 11 11 1 11 11 11 

1 11 11 1 11 1 11 11 

11 11 

1 II 1 11 11 11 1 

11111111111:11111 

II 1 8 1 

ninnni 

1 1 M 1 

1 1 II II II 1 1 1 1 1 

n 1 1 1 1 1 II II 1 1 

nil 

1 1 II II 1 1 II 1 

ninniniiiini 

inn 

1114. 

nininn 

1 t 1 1 II i; 1 1« . ii 

inn 

t '« n I' J 

n 1 n n n n n 

•1 ?: I ;; ;i n n ■■ 

99n999 9 9 3 n9H99 

,t J 1 13 II 1/ 1! H 43 >M If 14 1 3 

n II II n n 1 

. 11 11 ' 1 14 11 M ■ Hi 

n n n n n n 1 n n 

.1 11 K i :i ti . 1 1 '1 1 ’I » 1 n 


The sample data cards shown above will not in them- 
selves cause a single variable data file to be cre- 
ated. These sample data cards are data to the FILGEN 
program. The program causes the creation of the data 
file. A separate manual, entitled "ARIS System Users 
Manual", illustrates the steps necessary to cause 
execution of the FILGEN program (and the other ARIS 
geographic programs). 
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PROCEDURE FOR LOCATING 10 km UTM GRID ON 
ALABAMA COUNTY GENERAL HIGHWAY MAPS* 


Each county highway map has a geographic grid of 
degrees and tens of minutes in both longitude and 
latitude in the margins and within the map as 
intersection crosses. These will be used to 
locate the Universal Transverse Mercator (UTM) 
grid at 10 km intervals. Since the maps used may 
have stretched or shrunk in height and/or width, 
interpolation should be done between the 10 min 
intersections when possible. A table of UTM coor- 
dinates of 10 min intersections is required and is 
included as Appendix A. In Alabama, all eastings 
are referred to a false easting of 500 000 m at 
87°W longitude (Central Meridian, CM). Material 
for this table was supplied by the Department of 
the Interior. 


The interpolation procedure is best described by 
use of an example. The Macon County map 
is chosen (Surveying and Mapping Division, 

The southernmost latitude defined on this map is 
32°20' The easternmost longitude defined is 
85“40'. Examination of the map will reveal a 
small cross at the intersections of these coordi- 
nates. Other crosses occur at other intersections 
at 10‘ intervals. A light, sharp pend line 
should be drawn connecting these crosses along the 
line of aZ^ZO' latitude. The eastings of the two 
crosses are read from the table in Appendix at 
SZ^ZO', the easting for 1®Z0‘ (the distance 85 40 
is east of OT'-O-) is 6Z5 490. Z9 m and the easting 
for 1“30‘ (the distance 85'*30' is east of 87 0 ) 
is 641 178.03 m. The two crosses are therefore 
15 687.74 m apart (641 178.03 minus 6Z5 
Careful measurement directly on the map shows that 
the physical distance between the crosses on the 
sample available is Z4.74 cm. Tnis measurement 
should be repeated for the specific map to be 
marked because the sample used in this . 

was old paper. The locations of exact 10 km marks 
on the 3Z°Z0‘ latitude line are determined by 
interpolation; for the 630 000 line. 


630 000.00 - 6Z5 490. Z9 24.74 cm 


15 687 . 7 ^ 


♦NASA Technical Memorandum TM X-64953 by Charles 
T.N. Paluden, dated August 7, 1975. 


i 


1 


4509.71 


24.74 cm = 7.11 cm 


east of the 85®40‘ cross; for the 640 000 line, 


640 000.00 -625 490.29 24.74 cm = 


1 5 2 '-"' "" ‘ 


east of the 85®40* cross. A sharp pencil should 
be used to put temporary tick marks on the ;{2®20' 
latitude line measured eastward from the 85'’40' 
1 on 9 ituds cross at 7.11 cm and 22.88 cm. 


At this point it is interesting to note that these 
marks are 0.1577 m apart. Since they correspond to 
a real distance of 10 000 m, a scale of 63 412 is 
indicated for the particular paper copy of the map 
chosen. This represents a shrinkage of almost 0.1 
percent. Continuing to the west, interpolations 
are made between the crossmarks for 85 50 (easting 
from Appendix A of 609 803.00 m) and 85»40 ' (easting 
of 625 490.24 m) for the 610 000 and 620 000 grid 
marks, and between OO^OO' (easting of 594 116.11 m) 
and 85“50' for the 600 000 grid mark. 


The northernmost latitude defined on the Macon 
County map is 32»30'. A series of interpolat ons 
is made along the 32»30' latitude line, and light 
pencil ticks are placed at the 600 000, 610 000, 
620 000, 630 000, and 640 000 grid positions. 


An accurate straight edge and a fine tip pen with 
India ink can now be used to connect the pencil 
ticks (and extension to the margins) for the five 
vertical lines. A pen size of "OOO". or approxi- 
mately 0.1 mm, of the Koh-i-noor, Staedter Mars, 
or similar type is recommended. The pen should be 
compatible with the ink and the ink should be com- 
patible with the map material. 


The northings must be determined next. These should 
be marked in pencil along the easternmost and wes- 
ternmost meridians defined or the map; in the case 
of the Macon County map these meridians are 85 30 
and 86®00'. Since the Macon County map has only two 
lines of latitude defined (32®20' and 32®30'), these 
must be used for all northing interpolations. From 
the tables which follow, the northings for the inter 


i I 
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sprtions are 


32“20' ,85®30' (T’aO'E of Central Meridian)3 578 183.69 
32°30’ ,85®30 ' ( 1 °30 ‘ E of Central Mer1dian)3 596 660.77 
32®30' ,86®00' (1°00'E of Central Meridian)3 596 1 10.18 
32®20' ,86®00' (1 ®00'E of Central Meridian)3 577 634.60 

As before, careful measurements on the specific map 
to be marked should be made between the crossmarks 
- this time in the north-south direction. Locations 
of the UTM grid ticks for 3 570 000, 3 580 000, 

3 590 000, and 3 600 000 lines should be placed on 
the easternmost (85°30') and westernmost (86®00’) 
meridians. The tick marks should then be connected 
with inked lines extending to the margins. 

The resulting 10 km grid should be labeled in all 
four margins. It is customary to deemphasize some 
of the digits by use of smaller case numerals. The 

eastings in this example would be labeled 600°°°"' E, 

610°°°"’ E, etc., and the northings would be 

3570000°’ 3580°°°"’ N, etc. The symbol "m" for 

meters should be included to avoio confusion with 
the 30 000 ft state coordinate system. 

This procedure has been written for the 'specific 
case of Alabama's General County Highway Maps. It 
could probably be adapted to other states and other 
maps . 

Should the procedure outlined in this appendix be 
found unworkable by the user, assistance can be 
obtained by contacting the State Planning Division 
of the Alabama Development Office. Computer-aided 
conversions from specific latitude/longitude coor- 
dinates to UTM can be obtained directly. 

Care must be exercised when specifying the UTM 
coordinate for a given basemap. The Alabama Base 
Point (UTM easting of 350,000 meters and northing 
of 3,880,000 meters) would also be the origin of 
a basemap containing the extreme northwest por- 
tion of the State. However, the UTM coordinates 
of the first cell in that map (using a one quar- 
ter kilometer grid - 500 meters by 500 meters) 
have an easting of 350,000 meters but a northing 
of 3,879,500 meters - 500 meters south of the 
Alabama Base Point. Basemaps should be oriented 
to cause their origins to be at or on 1000 meter 
increments east and/or south of the Alabama Base 
Point. Thus, the UTM coordinates of such base- 
maps will have easting values at or on 1000 meters 
east of the Alabama Base Point and northing values 
which are on one of the 500 meter increments south 
of the Alabama Base POint. This deviation is 
caused by the standard UTM convention of iden- 
tifying the Southwest corner of grid cells. 



NATIONAL TRANSVERSE MERCATOR 
GRID TABLES 
FOR LATITUDES 

i 

30.0.0-35. 0.0 DEGREES | 

t 

CLARKE IB66 SPHEROID (METERS) ! 

I 

1 

i 

COORDINATES FOR LO.O-HINUTE INTERSECT lUNS { 


DELTA LONG. EIWEST OF CM) EIEAST OF CM) NORTHING 


I 



LATITUDE 




30. 0. 0. 



0 . 0 . 0 . 

500000.00 

500000.00 

3318605.33 ! 

0.10. 0. 

483925.05 

516074.95 

3318617.02 

0.20. 0. 

467850.03 

532149.97 

3318652.09 

0 . ' - 0. 

451774.88 

548225.12 

3318710.54 

0.40. 0. 

435699.51 

564300.49 

3318792.37 

0.50. 0. 

419623.88 

580376.12 

3318897.59 

1. 0. 0. 

403547.90 

596452.10 

3319026.20 

1.10. 0. 

387471.51 

612528.49 

3319178.21 ; 

1.20. 0. 

371394.64 

628605.36 

3319353.61 

1.30. 0. 

355317.23 

644682.77 

3319552.41 

1.40. 0. 

339239.19 

66 07o0. 8 1 

3319774.62 ! 

1.50. 0. 

323160.47 

676839.53 

3320020.25 

2. 0. 0. 

307081.00 

692919.00 

3320289.29 

2.10. 0. 

291000.70 

708999.30 

3320581.77 

2.20. 0. 

274919.52 

725080.48 

3320897.69 

2.30. 0. 

258837.37 

741162.63 

3321237.06 

i 

2.40. 0. 

242754.20 

757245.80 

3321599.88 ' 

2.50. 0. 

226669.93 

773330.07 

3321986.10 

3. 0. 0. 

210594.50 

789415.50 

3322395.95 


35 


4 LONG. 


0 • 0 • 0 • 

0 • I 0 • 0 m 

0 . 20 . 0 . 
0.30. 0. 
0.40. 0. 

0. 50. 0. 

1 . 0 . 0 . 

1.10. 0. 
1 . 20 . 0 . 

1.30. 0 . 
i.40. 0. 

1.50. 0. 
2 . 0 . 0 . 

2 . 10 . 0 . 
2 . 20 . 0 . 

2.30. 0. 
2.4^. 0. 

2.50. 0. 
3. 0. 0. 


0 . 0 . 0 . 

0 . 10 . 0 . 
0 . 20 . 0 . 
0.30. 0. 
0 .40 . 0 . 

0. 50. 0. 

1 . 0 . 0 . 
1 . 10 . 0 . 
1 . 20 . 0 . 

1.30. 0. 

1.40. 0. 

1.50. 0. 
2 . 0 . 0 . 
2 . 10 . 0 . 
2 . 20 . 0 . 

2.30. 0. 

2.40. 0. 

2.50. 0. 
3 . 0 . 0 . 


ECWEST OE CM» 


El EAST OF CM» 


LATITJOE 


30.10. 0. 


500000.00 
483951 .9B 

467903.89 

451855.66 

435807.23 
419758.53 

403709.50 

387660.05 

371610.13 

355559.67 
339508.60 

323456.86 

307404. 36 

291351.06 

275296.87 
259241.74 
243185.59 

227128. 36 

211069.98 


500000.00 

516048.02 
532096.11 
548144.34 
564192.7/ 
580241.47 

596290.50 

612339.95 

628389.87 
644440 .33 

660491.40 

676543.14 

692595.64 
708648.94 

724703.13 

740758.26 

756814.41 

772871.64 

788930.02 


LATITUDE 
30. 2J. 0. 


500000.00 
483979 .04 

467958.02 

451936 .86 

435915.50 

419893.87 
403871.91 
387849.54 
371826.71 
355803.34 

339779,37 
323/54.73 
307729. 36 
29170 3. 18 

275676.13 

259648.15 

243619. 16 
227589.10 

211557.90 


500000.00 

516020.96 

532041.98 

548063.14 

564084.50 
580106.13 
596128.09 
612150.46 
6281 73.29 
644 1 96 ,66 

660220.63 

676245.27 

692270.64 
708296.82 

724323.87 
740351.85 
756380.84 

772410.90 
788442.10 


northing 


3337072.91 

3337084.64 

3337119.83 

3337178.48 

3337260.59 

3337366.16 
3337495.20 
3337647.72 
3337823. 70 

3338023.17 
3338246.13 
3338492.57 
3338762.52 

3339055.98 

3339372.96 
3339713.46 

3340077.50 
3340465.08 

3340876.23 


3355540.98 

3355552.75 

3355588.05 

3355646.89 

3355729.27 

3355835.20 

3355964.66 

3356117.68 

3356294.25 

3356494.37 

3356718. 07 

3356965.33 

3357236.17 

3357530.60 

3357843.62 

3358190.24 

3358555.48 

3358944.35 

3359356.85 


oelta lung 


E(WES1 JE CM) 


f<EASr UF CM) 


NURl HlNG 


LATilUje 


U • 0 • 0 • 

U.IO. 0. 
0 . 20 . 0 . 
U.30. 0. 
J.40. 0. 
U • 3 0 • 0 • 
1 . 0 . 0 . 
1 . 10 . 0 . 
1.20. 0 . 
1 .30. 0. 

1. <i0. 0. 

1.50. 0. 

2 . 0 . 0 . 
2 . 10 . 0 . 
2 . 20 . 0 . 
2.30. 0. 
2 .^0 . 0 . 

2.50. 0. 
3 . 0 . 0 . 


0 . 0 . 0 . 

0 . 10 . 0 . 
0 . 20 . 0 . 
0.30. 0. 
0.40. 0. 
0.50. 0 . 
1 . 0 . 0 . 
1 . 10 . 0 . 
1 . 20 . 0 . 

1.30. 0. 

1 .40 . 0 . 
1 .50. 0. 
?. 0 . 0 . 
2 . 10 . 0 . 
2 . 20 . 0 . 

2.30. 0. 

2.40. 0. 
2.50. 0. 
3 . 0 . 0 . 


10 . 30 . 0 . 


500000.00 
4 04006 . 
463012.^1 
4 520 16.46 
436024.30 
42 J02M.83 

404035. 1 3 
366 039 .96 
372044. 3F 
356046.23 
34J051 .49 
324054.10 

306055 .96 

292057.06 
27o057. 2d 

260056. 56 
244054. H9 

226052 .14 
2 12046. 2 7 


5 0 OOOU . JO 
515 793. 76 
531967.59 
54 7961 .54 
5639 75. 70 
5799 70. 12 

595964.6 7 

6 1 1960.02 

62 7955.6 3 

643951. 7 7 

659948.51 
675)45. 90 
691)44. 02 
707942. 9h 

723942.72 
7399‘»3.42 
755945. 1 1 
771947.80 

787951.73 


LATl TUOt 
30.40. 0. 


500000.00 

464033.57 
4 6 o 06 7.08 
452 100.46 

436133.65 

42 0166.57 
40 '*199. 16 
386231. j7 
372263. 1 1 
356294. 34 

340324.97 
324354.96 
308364.22 
292412.70 
2 76440. 53 
26046 7.05 
244-»92. 79 
22551 7.49 

212541 . 07 


500000. 00 
515 )6o .43 
531932.92 
54 7899. 54 

563866. 65 
579533.43 
595600.84 
6l 1768.63 
627736.89 

643705.66 
6596 75. 0 3 
675645.04 
691615.78 
707587.30 

723559.67 
739532.95 
755507.21 

771462.51 
7 B 74 58.9 3 


33 74009. 52 
3 3 74021 . 32 
3374056. 74 
33 74 1 15.70 
3 3 74 19o. 4 3 
3374304. 70 
3 3 7 4t3 .58 
33 74588. 10 
3374765.24 
3 3 74966 .02 
33 75190.^4 

3375438.51 
33 75710.23 
33 76005.62 
33 76324.68 
3 3 76 66 7 . 't 2 
3377033 . j 5 
33 7 742 j . 90 
3 3 7 783 7.82 


3 3924 7 8.54 
3392490. 36 
3392525.91 

3392585. 14 
3 392668 .05 
3392774.66 

3392904. 97 

3393058. 98 
3 39 32 36. 09 
3 39 3438. 12 
3393663.26 
3393912.12 
3394184. 72 
33 >4481.05 

3354801 . 14 

3395144.98 
3395512.58 
3395903.97 

339631». l4 


DELTA LONG. 


E(WEST Oh C.'<) 


E(FASt OF CM» 


northing 


LATITUOh 


30. bO. 


0 . 0 . 0 . 

0 . 1 0 . 0 . 
0 . 20 . 0 . 
0.30. 0. 
O.AO. 0. 

0. 50. 0. 

1 . 0 . 0 . 
1 . 10 . 0 . 
1 . 20 . 0 . 

1.30. 0. 
1.^0. 0. 

1.50. 0. 
2 . 0 . 0 . 
2 . 10 . 0 . 
2 . 20 . 0 . 

2.30. 0. 

2. AO. 0. 

2.50. 0. 

3. 0. 0. 


500000.00 
A8A061 .04 
4(>8122.02 
452182.88 
436243.53 
420303. **3 

404364.01 

383423. 70 
372482. V4 
356541.66 
340599.80 
324657.30 

308714.09 

292770. 10 
276825.28 
260879.55 
244932.85 
228985.13 
21 3036. 31 


500000.00 

515938.96 

531877.98 
547817.12 
563756.47 
579696.07 

595635.99 
61 1570.30 
027517.06 
643458.34 
659400.20 

675342.70 
691285.91 
707229.90 
723174.72 
739120.45 

755067. 15 
771014.87 
786963.69 


3410948.03 

3410959.92 

3410995.56 

3411054.97 

3411138.15 

3411245.10 

3411375.82 

3411530.32 
3411708.59 
3411910.66 
3412136.51 
3412386.17 
3412659.63 
3412956.90 
3413278.00 

3413622.93 

3413991.70 

3414384.32 
3414800.81 


LATI TUOE 


0 . 0 . 


0 . 0 . 0 . 

500000.00 

500000.00 

0.10. 0. 

484088.65 

515911.35 

3.20. 0. 

468177.23 

531822. 77 

0.30. 0. 

452265.69 

547734.31 

0.40. 0 . 

436353.96 

56 36 46 .04 

0.50. 0. 

420441. 97 

579558.03 

1 . 0. 0. 

404529.67 

595470.33 

1.10. 0. 

388616.98 

611333.02 

1.20. 0. 

372703.84 

627296.16 

1.30. 0. 

356790.20 

64 32 09.80 

1 .40 . 0 . 

340875.98 

6591 24.02 

1.50. 0. 

324961.13 

675038.87 

2. 0. 0. 

309045.57 

690'»54.43 

2.10. 0. 

293129.25 

7068 70. 75 

2.20. 0. 

277212. 11 

722 787.89 

2.3^1. 0. 

261294.07 

738705.93 

2.40. 0. 

245375.08 

75<»624.92 

2.50. 0. 

22 9455.06 

770544.94 

3. 0. 0. 

21 3533.97 

7 8o4 o6 .03 


3429418.01 

3429429.93 
3429465.69 
3429525.29 
3429608. 72 

3429716.01 
3429847. 14 
3430002.12 

3430180.95 
3430383.65 
3430610.21 
3430860.64 

3431134.96 

3431433.16 

3431755.26 

3432101.27 
3432471 . 19 
3432865.04 
3433282.83 



DELTA long. 

E( WEST Of CN» 

LATITUDE 
31.10. 0. 

EIEAST UF LrtI 

NDK THING 

0 , 0. 0. 

500000.00 

500000.00 

3447888.47 

0.10. 0. 

484116.39 

515983.61 

3447900.43 

0.20. 0. 

469232.71 

531/67.29 

3447936.30 

0.30. 0. 

452348.91 

547*51. 09 

3447996. 08 

0.40. 0. 

436464.92 

563535.08 

3448079. 77 

0.50. 0. 

420530.68 

5794 19. 32 

3448187.39 

1.0.0. 

404696. 13 

595303.8/ 

3448318.92 

1.10. 0. 

388811.20 

611186.80 

3448474. 38 

1.20. 0. 

372925.82 

6270/4.18 

3448653. 76 

1.30. 0. 

357039.95 

642960. 35 

3448857.09 

1.40. 0. 

341153.51 

658846.49 

3449084. 35 

1.50. 0. 

325266.44 

6/4/33.50 

3449335.55 

2. 0. 0. 

309378.67 

690621.33 

3449610.7 1 

2.10. 0. 

293490. 16 

706509.84 

3449909.83 

2.20. 0. 

27/600.82 

722399.18 

3450232.93 

2.30. 0. 

261710.61 

738289.39 

3450580.00 

2.40. 0. 

245819.45 

754180.55 

3450951 .06 

2.50. 0. 

229927.29 

770072.71 

3451346.12 

3. 0. 0. 

214034.06 

LATITUDE 
31.20. 0< 

785965.^4 

» 

3451 765.20 

0. 0. 0. 

500000.00 

500000.00 

3466359.42 

0.10. 0. 

484144.26 

515855. /4 

3466371.41 

0.20. 0. 

468288.46 

531711.54 

3466407. 39 

0.30. 0. 

452432.54 

547567.46 

3466467.35 

0.40. 0. 

436576.43 

563423.57 

3466551.30 

0.50. 0. 

420720.07 

5792 79.93 

3466659. 24 

1. 0. 0. 

404863.40 

595136.60 

3466791.17 

1.10. 0. 

389006. 36 

610993.64 

3466947.1 1 

1.20. 0. 

373148.86 

626851. 12 

3467127. Oh 

1.30. 0. 

357290.91 

642709.09 

346/330.98 

1.40. 0. 

341432.38 

650567.62 

3467558.93 

1.50. 0. 

325573.22 

6 74t26 . /b 

3467810.90 

2. 0. 0. 

309713.39 

690286.61 

3468086.89 

2.10. 0. 

293852.81 

706147.19 

3468386.92 

2.20. 0. 

277991.42 

722008.56 

3468711.00 

2.30. 0. 

262129. 1 7 

73/8/0.83 

3469059. 1 2 

2.40. 0. 

246265.98 

753/34.08 

3469431.31 

2.50. 0. 

230401.80 

769598.20 

3469827.5b 

3. 0. 0. 

214536.57 

785963.4 3 

3470247.9., 


DELTA LONG 


fc{ WEST OF CM » 


EUAST OF CM) 


northing 


LATITUDE 
31.30. 0. 


0 . 0 . 0 . 

0.10. 0 . 
0 . 20 . 0 . 
0.30. 0. 
0.40. 0. 
0.50. 0. 
1.0. 0. 

1 . I 0 . Dm 
1 . 20 . 0 . 

1.30. 0. 

1.40. 0 . 

1.50. 0. 

2 . 0 . 0 . 
2 . 10 . 0 . 
2 . 20 . 0 . 

2.30. 0. 

2.40. 0 . 

2.50. 0. 
3 . 0 . 0 . 


0 . 0 . 0 . 

0 . 10 . 0 . 
0 . 20 . 0 . 
0.30. 0. 
0 .40 . 0 . 
0.50. 0. 
1 . 0 . 0 . 
1 . 10 . 0 . 
1 . 20 . 0 . 

1.30. 0. 
1.40. 0. 

1.50. 0. 
2 . 0 . 0 . 
2.10. C. 
2 . 20 . 0 . 

2.30. 0. 

2 .40 . 0 . 

2.50. 0. 

3 . 0 . 0 . 


500000. OC 
484172.27 

468344.48 
452516.56 

436688.47 

420860. 12 

405031.48 
38'?202 .46 
373373.01 
357543. 08 

341712.59 

325881.49 
310049.71 
294217.21 
278333.90 
262549.74 
246714.66 

230878.59 

215041.49 


500000.00 

515827.73 

531655.52 
547483.44 

563311.53 
579139.88 
594968.52 

610797.54 
626626.99 
642456.92 

658287.41 
6741 18.51 
689950.29 
705782.79 
721616.10 
737450.26 
753285.34 

769121.41 
784958.5 1 


500000.00 
515799.59 
531599.24 

547399.01 
563198.96 
578999.15 
594799.64 
610600.50 
626401.78 
642203.55 
658005.86 
673808.77 
689612.35 
705416.66 
721221. 75 
737027.68 
752834.52 
768642.33 
784451.17 


LATITUDE 

31.40. 0. 

500000.00 
484200.41 
463400. 76 
452500.99 
436301.04 
421000.85 
405200.36 
389399.50 

373598.22 
357796.45 
341994.14 

326191.23 
310387.65 
294583.34 
278778.25 
262972.32 
247165.48 
231357.67 
215548.83 


3484830.85 

3484842.88 

3484878.96 

3484939.10 

3485023.31 

3485131.57 
3485263.90 
3485420. 30 
3485500.77 

3485805.32 

3485033.95 

3486285.58 
3486563.50 
3465854.43 
3487189.48 

3487538.54 

3487911.95 
3488309.40 
3488731.00 


3503302.77 

3503314.83 

3503351.02 

3503411.34 

3503495.79 

3503504.38 

3503737.10 

3503893.96 

3504074.95 
3504280. 12 

3504509.43 
3504762.90 
3505040.54 

3505342.36 

3505668.36 
3506018.56 

3506392.96 
3506791.58 

3507214.43 



/ 


DELTA LONG. 


0 « 0 . 0 • 

0 . 10 . 0 . 
0 . 20 . 0 . 
0.30. 0. 
0 .AO . 0 . 

0. 50. 0. 

1 . 0 . 0 . 

1.10. 0. 
1 . 20 . 0 . 

1.30. 0. 

1. AO. 0. 

1 . 50. 0. 

2 . 0 . 0 . 

2 . 10 . 0 . 
2 . 20 . 0 . 

2.30. 0. 

2 . AO . 0 . 

2.50. 0. 

3. 0. 0. 


e(nest of CM» 


EtEAST OF CM) 


latitude 


31.50. 0. 


0 . 0 . 0 . 

500000.00 

500000.00 

0.10. 0 • 

A8A228.69 

515/71.31 

0.20. 0. 

A6SA57.32 

5315A2.68 

0.30. 0. 

A52685.82 

5A731A.18 

O.AO. 0. 

A3691A. 15 

563085.85 

0.50. 0. 

A211A2.25 

578857.75 

1. 0. 0. 

A05370.0A 

59A629.96 

1.10. 0. 

389597. A7 

610A02.53 

1.20. 0. 

37382A.A9 

6261 75.51 

1.30. 0. 

358051.03 

6A19A8.97 

l.AO. 0. 

3A2277.03 

657722.97 

1.50. 0. 

326502. AA 

673A97.56 

2. 0. 0. 

310727.19 

689272.81 

2.10. 0. 

29A951.22 

7050A8.78 

2.20. 0. 

27917A.A8 

720825.52 

2.30. 0. 

263396.91 

736603.09 

2 . AO . 0 . 

2A7618.AA 

752381.56 

2.50. 0. 

231839.01 

768160.99 

3. 0. 0. 

216058.57 

7839A1.A3 


latitude 


0 . 0 . 


500000.00 

A8A257.10 

A6851A. lA 

A52771.06 

A37027.80 

A2128A.31 

A055A0.52 

389796.38 

37A051.83 

358306.81 

3A2561 .26 

326815.12 

311068.33 

295320. 8A 

279572.58 

263823.50 

2AB073.53 

232322.63 

216570.72 


500000.00 

5157A2.90 

531A85.86 

5A7228.9A 

562972.20 

578715.69 

59AA59.A8 

610203.62 

6259A8.17 

6A 16 93. 19 

657A38.7A 

67318A.88 

688931.67 

70A679.16 

720A27.A2 

736176.50 

751926. A7 

7676 77.37 

783A29.28 


NUMTHING 


3521/75.17 

3521787.2/ 

3 52 1 82 3 . 5 / 

352188A.06 

3521968. 76 

3522077.66 

3522210. // 

3522368.09 

35225A9.62 

3522/55.37 

3522985.35 

3523239.56 

3523518.00 

3523820.70 

352A1A7.65 

352AA98.87 

352A87A.37 

35252/9. lA 

3525698.22 


35A02A8.07 

35A0260. 20 

35A0296.60 

35A0357.27 

35A0AA2.21 

35A0551.A3 

35A068A.91 

35A08A2.68 

35A102A.7A 

35A1231.08 

35A1A61. 72 

35A1716.65 

35A1995.90 

35A2299.A7 

35A2627.36 

35A2979.58 

35A3356. 15 

35A3757.08 

35AA182.37 


41 


A LUNG. 

ElKfcST OF CM) ElEAST OF CM) 

latitude 

32.10. 0. 

NORTHING 

0. 0. 0. 

300000.00 

300000.00 

3558721.45 

0.10. 0. 

484283.64 

515714.36 

3558733.62 

0.20. 0. 

4683/1.22 

331428.78 

3558770.13 

0.30. 0. 

452836.69 

347143.31 

3558830.97 

0.40. 0. 

437141.98 

362858.02 

3558916.15 

0.30. 0. 

421427.04 

578572.96 

3559025.67 

1 . 0. 0. 

405711.81 

394288.19 

3559159.54 

1.10. 0. 

389996.23 

610003.77 

3559317.75 

1.20. 0. 

374280.24 

625719.76 

3559500.32 

l.iO. 0. 

338363. 79 

641436.21 

3559707.25 

1.40. 0. 

342846.82 

637153.18 

3559938.53 

1.30. 0. 

327129.26 

672870.74 

3560194. 19 

2 . 0. 0. 

311411.07 

688388.93 

3560474.23 

2.10. 0. 

295692.18 

704307.82 

3560778.65 

2.20. 0. 

279972.54 

720027.46 

3561107.47 

2.30. 0. 

264252.09 

735747.91 

3561460.69 

2.40. 0. 

248530.76 

731469.24 

3561838.32 

2.50. 0. 

232808.51 

767191.49 

3562240.38 

3 . 0 . 0 . 

217085.27 782914.73 

LATITUDE 
32.20. 0. 

3562666.87 

0. 0. 0* 

300000.00 

300000.00 

3577195.33 

0.10. 0. 

484314.32 

515685.68 

3577207.54 

0.20. 0. 

468628.57 

531371.43 

3577244.14 

0.30. 0. 

452942.72 

547057.28 

3577305. 15 

0 .40 . 0 . 

437256.69 

562743.31 

3577390.57 

0.30. 0. 

421570.43 

378429.57 

3577500.40 

1. 0. 0. 

405883.89 

394116.11 

3577634.64 

1.10. 0. 

390197.00 

609803.00 

3577793.29 

1.20. 0. 

374509.71 

62 3490.29 

3577976.37 

1.30. 0. 

358821.97 

641178.03 

3578163.87 

1.40. 0 . 

343133.71 

656866.29 

3578415.81 

1.50. 0. 

327444.87 

672555.13 

3578672.18 

2. 0. 0. 

311735.41 

688244.59 

3578952.99 

2.10. 0. 

296065.26 

7039 34.74 

3579258.26 

2.20. 0. 

280374.37 

719625.63 

3579588.00 

2.30. 0. 

264682.68 

735317.32 

3579942.20 

2.40. 0. 

248990. 12 

751009.88 

3580320.88 

2.50. 0. 

233296.66 

766703.34 

3580724.06 

3. 0. 0. 

217602.22 

782397.78 

3581151.74 




delta long. ejwest uf cm> eceast of CM) 

latitude 


32.30. 0. 


0 . 0 . 0 • 

500000.00 

500000.00 

0.10. 0. 

484343. 12 

515656.86 

0.20. 0. 

4<) 8686. 19 

531313.81 

0.30. 0. 

453029. 15 

546970.85 

0.40. 0. 

437371.93 

562628.07 

0.50. 0. 

421714.49 

578285.51 

1 . 0. 0. 

406056.77 

593943.23 

1.10. 0. 

390398.71 

609601.29 

1.20. 0. 

374740.25 

625259. 75 

1.30. 0 . 

359081.34 

640918.86 

1 .40 . 0 . 

343421.93 

656578.07 

1.50. 0. 

327761.95 

672238.05 

2 . 0. 0. 

312101.34 

68 7898.66 

2.10. 0. 

296440.07 

703559.93 

2.20. 0. 

280778.06 

719221.94 

2.30. 0. 

265115.25 

734884.75 

2.40. 0. 

249451.61 

750548.39 

2.50. 0. 

233787.06 

7662 12.94 

3 . 0 . 0 . 

218121.55 

latitude 

32.40. 0. 

781878.45 

0 . 0 . 0 . 

500000.00 

500000.00 

0.10. 0. 

484372.06 

515627.94 

0.20. 0. 

468744.07 

531255.93 

0.30. 0. 

453115.97 

546884.03 

0.40. 0. 

437487.70 

562512.30 

0.50. 0. 

421859.21 

578140.79 

1. 0. 0. 

406230.44 

593769.56 

1.10. 0 . 

390601.34 

609398.66 

1.20. 0. 

374971.85 

625028.15 

1.30. 0. 

359341.91 

640658.09 

1.40. 0. 

343711.47 

656288.53 

1.50. 0. 

328080.48 

6719 19.52 

2 . 0 . 0 . 

312448.87 

687551.13 

2.10. 0. 

296316.60 

703183.40 

2.20. 0. 

261183.60 

718816.40 

2.30. 0. 

265549.82 

734450.18 

2.40. 0. 

249915.21 

750084. 79 

2.50. 0. 

234279.72 

765720.28 

3. 0. 0. 

218643.27 

781356.73 


NORTHING 


3595069. 71 

3595681.94 
3595718.65 

3595779.83 
3595865.48 

3595975.61 
3596110.22 
3596269.31 
3596452.89 

3590660.96 
3596893.53 

3597150.61 
3597432.19 
3597738.30 

3598068.94 

3598424.1 1 

3598803.83 

3599208.11 

3599636.96 


3614144.58 

3614156.84 

3614193.65 

3614255.00 

3614340.88 
3614451.31 

3614586.28 
3614745.80 

3614929.88 
3615138.51 
3615371.71 
3615629.48 
3615911.83 
3616218.76 

3616550.29 
3616906.42 
3617287.17 

3617692.54 

3618122.55 
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DELTA LONG. 

finest of CM) 

EIEAST OF CM) 

NORTHING 


LATITUDE 




32.50. 0. 



0 . 0 . 0 . 

500000.00 

500000.00 

3632619. 9A 

O.IO. 0. 

AOAAOl . lA 

515598.86 

3632632.2A 

a. 2D. 0. 

A68002.22 

531197.78 

3632669.15 

O.iO. 0. 

A53203.20 

546796.80 

3632730.06 

0 • AO • 0 • 

A3760A.01 

562395.99 

3632816.77 

0.50. 0. 

A2200A.60 

577995. AO 

3632927. A9 

1.0.0. 

A06A0A.91 

593595.09 

3633062.82 

I.IO. 0. 

39080A.90 

609195. 10 

3633222. 77 

1.20. 0. 

37520A.50 

62A795.50 

3633407.33 

1.30. 0. 

359603.67 

6A0396.33 

3633616.52 

l.AO. 0. 

3AA002.3A 

655997.66 

3633850. 3A 

1.50. 0. 

328A00.A6 

671599. 5A 

363A108.80 

2. 0. 0. 

312797.98 

687202.02 

363A391 .90 

2.10. 0. 

29719A.8A 

702805. 16 

363A699.65 

2.20. 0. 

281590.99 

7I8A09.01 

3635032.06 

2.30. 0. 

265986.38 

73A013.62 

3635389. lA 

2. AO. 0. 

250380. 9A 

7A96 19.06 

3635770.90 

2.50. 0. 

23A77A.62 

765225.38 

3636177. 3A 

3. 0. 0. 

219167. 38 

780832.6? 

3636608. A9 


LATITUDE 




33. 0. 0 

• 


0 . 0 . 0 . 

500000.00 

500000.00 

3651095.81 

0.10. 0. 

A8AA30.3A 

51 5569.66 

3651108. lA 

0.20. 0. 

A68860.63 

531139.37 

3651145. lA 

0.30. 0. 

A53290.82 

5A6709.18 

3651206.81 

O.AO. 0. 

A37720.8A 

562279. 16 

3651293.15 

0.50. 0. 

A22150. 6A 

5778A9.36 

3651A0A.16 

1 . 0. 0. 

A06580. 1 7 

593A19.83 

. 3051539.85 

1 .10. 0. 

391009.38 

608990.62 

3651700.21 

1.20. 0. 

375A38.22 

62A561. 78 

3651885.26 

1.30. 0. 

359866.61 

6A0133.39 

3652095.00 

l.AO. 0. 

3AA29A.53 

655705. A7 

3652329.A3 

1.50. 0. 

328721.90 

671278.10 

3652588.56 

2. 0. 0. 

3131A8.68 

686851.32 

3652872.41 

2.10. 0. 

29757A.8 I 

702A25.19 

3653180.96 

2.20. 0. 

282000. 2A 

717999.76 

365351A.2A 

2.30. 0. 

266A2A.91 

733575.09 

3653872.26 

2. AO. 0. 

2508A8. 78 

7A9151.22 

3654255.02 

2.50. 0. 

235271.78 

76A728.22 

365A662. 53 

3. 0. 0. 

219693.86 

7803C6.1A 

365509A.81 
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T 


DELTA lung. E(WEST UE CM) E(EAiT OF CM) 

LATITUDE 
33.10. 0. 


a. 0. 0. 

0 . 10 . 0 . 
0 . 20 . 0 . 
0.30. 0. 
O.AO. 0. 

0. 50. 0. 

1 . 0 . 0 . 
1 . 10 . 0 . 
1 . 20 . 0 . 

1.30. 0. 
!.<>0. 0. 

1.50. 0. 
2 . 0 . 0 . 
2 . 10 . 0 . 
2 . 20 . 0 . 

2.30. 0. 
2.40. 0. 

2.50. 0. 
3 . 0 . p . 


500000.00 

484459.68 

468919.31 

4^3378.83 

437838.19 

422297.34 

406756.23 

391214.79 

375672.98 

360130.75 

344588.04 

329044. 79 
313500.96 
297956.49 
282411.33 

266865.43 
251318.73 

233771.17 
220222.72 


500000.00 

515540.32 

531080.69 

546621.17 

562161.81 

577702.66 

593243. 77 

608785.21 

624327.02 
639869.25 
655411.96 

670955.21 

686499.04 
702043.5 1 

717588.67 
733134.57 

748661.27 
764228.83 

779777.28 


latitude 


33.20. 0. 


0 • 0 • 0 . 

0 . 10 . 0 . 
0 . 20 . 0 . 
0.30. 0. 
0.40. 0. 

0. 50. 0. 

1 . 0 . 0 . 
1 . 10 . 0 . 
1 . 20 . 0 . 

1.30. 0. 

1.40. 0. 

1.50. 0. 
2 . 0 . 0 . 
2 . 10 . 0 . 
2.2L. 0. 

2.30. 0. 

2 .40. 0. 

2.50. 0. 
3 . 0 . 0 . 


500000.00 

484489.15 

468978.25 

453467.24 

437956.08 

422444.71 

406933.07 

391421.12 

375908.80 

360396.07 

344882.86 

329369.13 
313854.82 
298339.89 
282824.27 

267307.92 

251790.78 

236272.81 
220753.95 


500000.00 

515510.85 

531021.75 

546532.76 

562043.92 

577555.29 

593066.93 
608578.88 
624091.20 

639603.93 

655117.14 

670630.87 

686145.18 
701660.11 
717175.73 
732692.08 

748209.22 

763727.19 

779246.05 


i 


northing 


3669572.17 

3669584.54 

3669621.63 

3669683.46 

3669770.02 

3669881.32 

3670017.36 

3670178.14 

3670363.66 

3670573.94 

3670808.98 

3671068.78 

3671353.35 
3671662.71 
3671996.85 

3672355.79 
3672739.53 
3673148.09 
3673581.48 


3688049.04 

3688061.43 

3688098.62 

3688160.61 

3688247.39 

3688358.97 

3688495.35 

3688656.54 

3688842.54 

3689053.35 

3689288.99 
3689549.45 
3689834.74 
3690144.88 

3690479.87 
3690839.72 

3691224.44 

3691634.03 
3692068.52 


45 



RELTA LONG. EiWtST (JF CM I 

LATITUOE 
33.30. 0. 


0. 0. 

0. 

5o0000 . 00 

0.10. 

0. 

989518.75 

0.20. 

0. 

969037.95 

0 .30. 

0. 

953556.05 

0.90. 

0. 

938079.99 

0.50. 

0. 

922592.73 

1 . 0. 

0. 

907110.70 

1 .10. 

0. 

391628.37 

1 .20. 

0. 

376195.68 

1.30. 

0. 

360662 .57 

1 .90. 

0. 

395179.00 

1.50. 

0. 

329699.91 

2. 0. 

0. 

319210.26 

2.10. 

0. 

298729.99 

2.20. 

0. 

283239.09 

2.30. 

0. 

267752.38 

2.90. 

0. 

252269.99 

2.50. 

0. 

236776.68 

3. 0. 

0. 

221287.59 


LATl TUOt 
33.^0. 0 


0 . 0 . 0 . 

500000.00 

0.10. 0 . 

989598.98 

0.20. 0. 

969096.92 

0.30. 0. 

9 5 3695 .25 

0.90. 0 . 

938193.93 

0.50. 0. 

922791.90 

1. 0. 0. 

907289.12 

1.10. 0. 

391836.59 

1.20. 0. 

376383.60 

1.30. 0. 

3609 30.2 5 

1.90. 0. 

395976.95 

1.50. 0. 

330022. 19 

2. 0. 0. 

319567.27 

2.10. 0. 

299111.79 

2.20. 0. 

283655.66 

2.30. 0. 

268198.81 

2.90. 0 . 

252791 .20 

2.50. 0. 

237282.77 

3. 0. 0. 

221823.99 





500000.00 3?J652(>.<*0 

5l5<»ei.25 3T06538.83 

530962.55 3706576.11 

546993.95 3706638.25 

561925.51 3706725.25 

5779C7.27 3706837.11 

592889.30 3706973.89 

608371.63 3707135.93 

623659.32 3707321.89 

639337.93 3707533.23 

059621.00 3707769.95 

670305.09 3708030.57 

685789.79 3708316.57 

701275.01 3708627.99 

716760.96 3708963.31 

732297.6^; 3709329.06 

797735.06 3709709.79 

763223.32 3710120.36 

778712.96 3710555.93 


500000.00 3725009.27 
515951.52 3725016.73 
530903.08 3725059.11 

596359.75 3725116.90 
561806.57 3725203.61 
577258.60 3725315.75 
592710.88 , 3725952.81 

608163.96 3725619.80 
623616.90 3725801.72 

639069.75 3726013.58 
659523.55 3726250.38 
669977.86 3726512.19 
685932.73 3726798.85 
700888.21 3727110.53 
716399.39 3727997.18 
7318C1.19 3727808.81 
797258.30 3728195.93 
762717.23 3728607.06 
778176.51 3729093.70 



1.10. 0. 
1 . 20 . 0 . 

1.10. 0. 

1.40. 0. 
L . 30 . 0 • 
2 . 0 . 0 • 

2.10. 0. 
2.20. 0. 
2.30. 0. 

2 .40 . 0 . 
2.50. 0. 
3 . 0 . 0 . 


0 . 0 . 0 . 

0 . 10 . 0 . 
0 . 20 . 0 . 
0.30. 0. 
0.40. 0. 

0. 50. 0. 

1 . 0 . 0 . 
1.10. 0 . 
1.20. 0. 

1.30. 0. 

1.40. 0. 
1.50. 0. 
2 . 0 . 0 . 
2.10. 0. 
2 . 20 . 0 . 

2.30. 0. 

2 .40 . 0. 

2 . 50 . 0 . 

3 . 0 . 0 . 





E(WE5T riF CM) KEAST JF CM) 

LAT 1 TUOt 
33.50. 0. 


500000.00 
48457B. 35 
4A9156. 64 
453734.84 
433312.89 
422890.73 
407468.33 
392045.62 
376622.57 
36 ll ?*^. 12 
345775.21 
330350.81 
314925.86 
299500. 30 

284074. 1 0 
263647. 20 
253219.55 

237791.10 
222361 .80 


500000.00 

515421.65 

530843.36 

546265.16 

561687.11 

577109.27 

592531.67 

607954.38 

623377.43 

638800.88 

654224.79 
669649. 19 
685074. 14 
700499. 70 

715925.90 

731352.80 
746780.45 

762208.90 
77 7638.20 


latitude 


34. 0. 0. 


500000.00 

484608. 34 

469216.63 

453824.82 

438432.87 

423040.72 

407648. 32 

392255.62 

376862.59 

361469. 1 5 

346075 . 28 

330680.91 

315286.01 

299890.51 

284494.38 

269097.55 

253699.99 

2 38 301.64 

222902.46 


500000.00 

515391.66 

530783.37 
546175.18 
561567.13 
576959.28 
592351.68 

607744.38 
623137.41 
638530.85 
65392h. 72 
6693 19.09 
684713.99 
7001C9.49 
715505.62 
730902.45 
7463C0. 01 
76 1698. 36 
777097.54 



i 

I 

t 


NORTHINC 


3743482.65 
3743495.13 
3743532.60 
3743595.04 
37-t3682.47 
3743794.88 

3743932.2 7 

3744094.65 

3744282.02 
3744494.40 
374‘»731. 77 
3744994. lo 
3745281.57 
3 745594.00 
3 7t593l .46 
3/46293.97 
3 746681.53 
3747094.15 
3747531.85 


3761961.53 
3761974.05 
3762011.60 
i7o2074.19 
37t.216l.83 
1762274.50 
3 762412.22 
j7o2574.99 
3/b2762.81 
3762975.69 

3763211.63 

3763476.64 
3763764.73 
3764077.90 
3764416.1 7 
3764779.54 
3765168.02 
3/65581.62 
3 76602 3. 36 


T 

j 


47 


/ 




3 


DELTA LONG. 


D • 0 • 0 • 

O.IU. 0. 
D.20. 0. 
0.30. 0. 
O.AO. 0. 

0. 50. 0. 

1 . 0 . 0 . 
1 . 10 . 0 . 
1 . 20 . 0 . 

1.30. 0. 

1.40. 0. 

1.50. 0. 
2 . 0 . 0 . 
2 . 10 . 0 . 
2 . 20 . 0 . 

2.30. 0. 

2.40. 0. 

2.50. 0. 
3. 0. 0. 


0 . 0 . 0 . 

0 . 10 . 0 . 
0 . 20 . 0 . 
0.30. 0. 
0.40. 0. 

0. 50. 0. 

1 . 0 . 0 . 
1 . 10 . 0 . 
1 . 20 . 0 . 

1.30. 0. 

1.40. 0. 

1.50. 0. 
2 • 0 . 0 . 
2 . 10 . 0 . 
2 . 20 . 0 . 

2.30. 0. 

2.40. 0 • 

2.50. 0. 
3. 0. 0. 


EIWEST OE CM) 


El EAST OF CM) 


NORTHING 


LATITUDE 


34.10. 0. 


500000.00 

484638.4b 

469276.88 

453915.20 

438553.37 

423191. 35 
40T829.09 

392466.54 

377103.64 

361740.37 

346376.65 

331012.45 

315647. 72 
300282.41 
284916.48 
269549.86 

254182.52 

238814.40 
223445.47 


500000.00 

515361.54 

530723.12 
546064.80 

561446.63 

576808.65 

592170.91 
60 75 33.46 

622896.36 
o3 82 59 .6 3 
653623.35 

668987.55 
684352.28 
6997 17.59 

715083.52 
730450.14 
745817.48 
76 1185.60 

776554.53 


3780440.91 
3780453.46 

3780491.1 1 
3780*^53.84 
3780641.68 
3780754.62 
3780892.66 

3781055.81 
3781244.07 

3781457.45 
3781695.95 
3781959.58 
3782248.34 

3782562.24 
3782901.30 
3783265.52 

3783654.91 

3784069.46 

3784509.24 


LATI TUOt 


34.20. 0. 


500000.00 

484668.72 

469337.39 
454005.96 

438674.40 

423342.64 

408010.64 

392678.36 

377345.75 

362012.75 
346679.33 
331345.43 

316011.00 

300676.01 

285340.40 

270004.12 

254667 .13 

239329.38 
223990.82 


500000.00 
515331.28 
530662.61 
545994.04 

56 1325.60 

576657.36 

591989.36 

607321.64 

622654.25 

637987.25 
653320.67 
66 86 54.5 7 

683989.00 
699323.99 

714659.60 
729995.88 
745332. 87 
7 6 06 70.62 
776009.18 


3798920.81 

3798933.39 

3798971.12 

3799034.00 
3799122.04 

3799235.24 

3799373.60 

3799537.12 

3799725.82 
3799939.69 
3800178.73 
3800442.97 

3800732.39 
3801047.02 
3801386.86 

3801751.92 
3802142.20 

3802557.72 
3802998.49 



I 



DELTA LUNG. E(WEST OF CK ) fclEASI OF CM) 

LATITUDE 
3<».30. 0. 


0. 0. 

0. 

300000.00 

300000.00 

0. 10. 

0. 

484699. 10 

5153C0.90 

0.20. 

0. 

4<>9398. 16 

330601.84 

0.30. 

0. 

454097. 12 

545902.88 

0.40. 

0. 

438795.94 

361204.06 

0.50. 

0. 

423494.57 

376303.43 

1. 0. 

0. 

408192.97 

591807.03 

1.10. 

0. 

392891.09 

607108.91 

1 .20. 

0. 

377588.89 

622411. 11 

1 .30. 

0. 

362286. 30 

637713.70 

1 .40. 

0. 

346983.30 

633016.70 

1 .30. 

0. 

331679.83 

668320. 1 7 

2. 0. 

0. 

316375.84 

683624.16 

2.10. 

0. 

301071.30 

698928. 70 

2.20. 

0. 

283766.14 

714233.86 

2.30. 

0. 

270460. 33 

729339.67 

2.40. 

0. 

255153.82 

744846.18 

2.30. 

0. 

239846.56 

7601 53.44 

3. 0. 

0. 

224538.31 

775461.49 



LATI TUOt 




• 

o 

• 

o 

• 


0. 0. 

0. 

300000.00 

300000.00 

0.10. 

0. 

484729.62 

515270.38 

0.20. 

0. 

469439. 19 

330540.81 

0.30. 

0. 

434188.66 

343811.34 

0.40. 

0. 

438918.00 

361082.00 

0.30. 

0. 

423647.16 

376352.84 

1. 0. 

0. 

408376.09 

591623.91 

I.IO. 

0. 

393104.74 

606895.26 

1.20. 

0. 

377833.06 

622166.94 

1.30. 

0. 

162361.02 

037438.98 

1 .40. 

0. 

347288.57 

6327 11.43 

1.30. 

0. 

332015.66 

667984.34 

2. 0. 

0. 

316742.24 

6832 57. 76 

2.10. 

0. 

301468.27 

698531.73 

2.20. 

0. 

286193.70 

7138C6.30 

2.30. 

0. 

270916.49 

729081.31 

2.40. 

0. 

235642.39 

744357.41 

2.50. 

0. 

240365.93 

759034.05 

3. 0. 

0. 

225U88.53 

7749 11.47 


NORTHING 


3817401. .12 

381 7413.82 
3817431.64 
3817314.66 

3817602.90 

3817716.36 

3817835.03 
3818018.92 

3818208.04 
3818422.40 
3818861.99 

3818926.82 

3819216.90 
3819332.24 
3819872.84 
3820238. 72 
3820629.89 
3821046. 33 
3821488.1 1 


3833882.13 

3833894. 76 
3833932.66 

3835995.83 
3836084.27 

3836197.97 
‘ 3836336.96 

3836301.21 

3836690.76 

3836903.36 
3837143.71 

3837411.13 
3837701.85 
38j8017.89 
3838339.26 
3838723.95 

3839117.98 

3039535.36 
3839978.11 
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LONG. 

EIWEST 111 C.'O 

LATITUDE 
34.30. 0. 

flEAST OF CM) 

northing 

s) • 0 • 0 • 

500000. UO 

3 JOOCO.OO 

3854363. 56 

O.IJ. 0. 

>*84760.26 

515239. 74 

3854376.22 

J.20. 0. 

469520.47 

530479.53 

3854414.20 

0.30. 0. 

4^4280 .60 

5457 19.40 

3854477.51 

0.^0. 0. 

439040.39 

560959.41 

3654566.14 

0.30. 0. 

423800.39 

576199.61 

3854680.09 

1. 0. 0. 

408539.97 

591440.03 

3854819.38 

1 .10. 0. 

393319.28 

606680.72 

3654984.00 

1.20. 0. 

3780/8.28 

621921.72 

3855173.95 

1.30. 0. 

362836.91 

637163.09 

3855389.25 

1.40. 0. 

347395.14 

6 524 04 .86 

3855629.90 

1.30. 0. 

332352.91 

667647.09 

3855895.90 

2. 0. 0. 

31 7110. 19 

682839.81 

3856187.26 

2.10. 0. 

301866.92 

6981 33.08 

3856503.99 

2.20. 0. 

286623.07 

713376.93 

3656846.09 

2.30. 0. 

271378.38 

728621.42 

3857213.59 

2.40. 0 . 

236133.42 

743866.58 

3857606.48 

2.30. 0. 

240887.54 

7591 12.46 

3858024.77 

3. 0. 0. 

225640.89 

LAT I TUDE 
35. 0. 0, 

774359.11 

• 

3858468.48 

0 . 0 . 0 . 

300000.00 

5O0OC0.00 

3872845.50 

0.10. 0 . 

484791.03 

51 52 C8. 97 

3872858. 19 

0.20. 0. 

469582.02 

5304 17.98 

3872896.25 

0.30. 0. 

454372.9? 

545627. 08 

3872959.69 

0.40. 0. 

439163.68 

5608 36.32 

3873048.51 

0.30. 0. 

423934. 27 

576045.73 

3873162.71 

1 . 0. 0. 

1.10. 0. 
1.20. 0. 
1.30. 0. 
1.40. 0. 
1.30. 0. 
2 . 0. 0. 

408744.64 

591255.36 

, 3873302.30 

393534.74 

606465 . 26 

3873467.27 

373324.52 

62 le 7 5 . 4 8 

3873657.63 

363113.96 

636886.04 

3873873.39 

347902.99 

652097.01 

3074114.56 

332691.58 

66 7308.42 

3874381.13 

317479.68 

682520.32 

3874673. 11 

2.10. 0 . 

302267.25 

697732.75 

3874990.52 

2.20. 0. 

28 7054.25 

712945.75 

3875333. 36 

2.30. 0 . 

271840.62 

7201 59.38 

3875701.64 

2 .40 . 0. 

256626. 33 

7433 73.67 

3376095. 37 

2.30. 0. 

3. 0. 0. 

241411.32 

75 o5 8o . 60 

3876514.56 

22ol95.57 

77 3804.43 

3876959.22 
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Appendix B 



t>4ATinNAL TRANSVbkSt MFk 



.^R 


GRID TABLES 


FOR LAIITUUES 


30.0.0-3S. 0.0 UFGF.FtS 


CLARKL l8o6 SRHFROIO (MtlEKS) 


CDORDlNATcS FUR 7 MIN. 30 SfcC. INTERSECTIONS 


delta long. OF CM) FItAST OF CM) 


0 . 0 . 0 . 

latitude 
30. 0. 0. 
500000.00 

500000.00 

0. 7.30. 

467943. 79 

512056.21 

0.15. 0 . 

475887.55 

5241 12.45 

0 .22 . 30. 

463831.26 

536168.74 

0 .30. 0. 

451774.88 

548225.12 

0.37.30. 

439718.3a 

560281.62 

0.45. 0. 

427661.74 

572338.26 

0 .52 .30. 

415604.92 

584395.08 

1 . 0 . 0 . 

403547.90 

596452.10 

1. 7.30. 
1.15. 0. 
1 .22.30. 
1.30. 0 . 

391490.65 

608509.35 

379433. 14 

62 0566. 86 

367375.3^ 

632624.66 

355317.23 

o446 82 .77 

1.37.30. 
1 .45 . 0 . 

1.52.30. 
2 . 0 . 0 . 

2. 7.30. 
2.15. 0 . 

343258.76 

656741 .24 

331199.92 

0688OO.O8 

319140.68 

680859.32 

307081 .00 

692919.00 

295020.86 

70-»9 79. 14 

202960. 23 

71 7039. 77 

2 .22 .30. 

270899. 08 

729100.92 

2.30. 0 . 

253837.37 

741162.63 

2 . 37. 30. 

2467 75 . 1 0 

75 3224.90 

2 .45 . 0. 

234712.2 1 

7652S7. 79 

2 .52. 30. 

222648 .69 

777)51.31 

3. 0. 0. 

210584.50 

769415. 50 


NORTHING 


3318605. 33 
3318611.90 
3318631.63 
331866A.51 

3318710.54 
3318769.72 
3318842.06 

3318927.55 
3319026.20 
3319138.01 

3319262.98 
3319401. 1 1 
3319552.41 
3319716.87 
3319894.51 
3320085. 31 
3320289.29 
3320506.46 
3320736.80 
3320980.33 
3321237.06 

3321506.98 
3321 790. 10 
3322086.42 
3322395.95 


52 


DELTA LUNG 


fc( WESl Of- CM ) 


t(EASr UF CM» 


NORTHING 


LAT I TlJOf 
30. T.30. 


0. 0. 0. 

500000.00 

500000.00 

3332455. 97 

0. 7.30. 

487958.93 

512041.07 

3332462.57 

0.15. 0. 

475917.83 

524082.17 

3332482. 34 

0.22.30. 

463876.67 

536123.33 

3332515. 30 

0.30. 0. 

451835.43 

548164.57 

3332561.45 

0.37.30. 

439794.07 

560205.93 

3332620. 78 

0.45. 0. 

427752.57 

572247.48 

3332693. 30 

0.52.30. 

415710.89 

584289. 1 1 

3332779.01 

1. 0. 0. 

403669.02 

596330.98 

3332877.91 

1. 7.30. 

391626.92 

608373.08 

3332990.00 

1.15. 0. 

379584.56 

6204 15.44 

3333115.28 

1.22.30. 

367541 .91 

632458.09 

3333253. 76 

1.30. 0. 

355498.95 

644501 . 05 

3333405.44 

1.37.30. 

343455 .6'* 

656544.36 

3333370.32 

1.45. 0. 

331411.96 

668588.04 

3333746.40 

1.52.30. 

319367.88 

680632. 12 

3333939.68 

2. 0. 0. 

307323. 37 

692676.63 

3334 144 .18 

2. 7.30. 

295278.40 

704721.60 

3334361 . o8 

2.15. 0. 

283232.95 

716767.05 

3334592.81 

2.22.30. 

271186.97 

728813.03 

3334836.95 

2.30. 0. 

259140.46 

740859.54 

3335094. 32 

2.37.30. 

247093. 3/ 

752906.63 

3335364.92 

2.45. 0. 

235045.68 

764954. 32 

3335648. 75 

2.52.30. 

222997.36 

777002.64 

3335945.82 

3. 0. 0. 

210948.38 

789051.62 

3336256. 1 3 


LATITUDE 


30. li. 0. 


0 . 0 . 0 . 

500000.00 

500000. 00 

3346306. 89 

0. 7.30. 

487974. 12 

512025.88 

3346313.50 

0.15. 0. 

475948.22 

524051.76 

3346333. 32 

0.22.30. 

463922.26 

536077.74 

3346366. 37 

0.30. 0. 

451696.21 

548103.79 

3396412.63 

0.37.30. 

439870.05 

560129.95 

3346472.11 

0.45. 0. 

427843. 74 

572156.26 

3346544.81 

0.52.30. 

415817.27 

584182.73 

3J46O30. 73 

1. 0. 0. 

403790.60 

596209.40 

3346 729. 88 

1. 7.30. 

391763.70 

608236.30 

3346842.24 

1.15. 0. 

3797 36. 54 

620263.46 

3346967.84 

1 .22.30. 

367709.1 1 

632290. 89 

334/106.66 

1.30. 0. 

355631 .35 

6443 18.65 

3347258. 72 

1 .37.30. 

343653.26 

656346. 74 

3347424.00 

1.45. 0. 

33162-+.80 

668375.20 

3347602. 53 

1 .52.30. 

319595.94 

6804 04.06 

3347794.29 

2. 0. 0. 

30 7 566 . 66 

0924 33.34 

3347999.29 

2. 7.30. 

295536.92 

704-.o3.08 

3340217.54 

2.15. 0. 

283506.09 

716453.31 

334644S. 04 

2.22.30. 

271475.96 

728524. 04 

334869J. 79 

2.30. 0. 

25944*.. 69 

740555.31 

3348951 .60 

2.37.30. 

247412.85 

752587.15 

3349223.07 

2.45. 0. 

235380.41 

7646 19.59 

3349507.61 

2 .52.30. 

223347. 35 

776052.65 

3349805. 42 

3. 0. 0. 

211313.64 

738686. 36 

JJ->01lo.50 




T 

> 

f 

f 

! 


T 


DELTA LONG. 


ECweSl OL CM) EtEAST OF CM) 

LATITUDE 


NURTHING 


0 a Da 0 a 

0. 7.30. 
0.1t>. 0. 

0 .22.30. 
0.30. 0. 
0.37.30. 

0 , ^ 5 . 0 . 
0 .52.30. 

1 . 0 . 0 . 

1. 7.30. 

1.15. 0. 

1 .22. 30. 

1.30. 0. 

1.37.30. 

1.45. 0. 

1.52.30. 

2 . 0 . 0 . 
2. 7.30. 

2.15. 0. 

2 .22.30. 

2.30. 0. 

2.37.30. 

2.45. 0. 

2.52.30. 
3 . 0 . 0 . 


30.22.30. 


500000.00 
48T989.37 

475978.72 

463968.01 
45195 /. 22 
439946. 31 

427935.26 

415924.05 

403912.63 

391901.00 
379889.10 

367876.93 
355864.45 

343851.63 
331838.44 

319824.86 

307810.86 

295796.41 
283781.47 
271766.04 

259750.06 

247733.53 
235716.40 
223698.66 

211680.27 


500000.00 

512010.63 

524021.28 
536031.99 
543042.78 

560053.69 
572064. 74 
584075.95 

596087.37 

608099.00 
620110.90 

632123.07 

6441 35.55 

656148.37 

668161.56 

680175.14 

692189.14 

704203.59 

716218.53 
728233.96 

740249.94 
752266.47 

764283.60 
776301.34 

788319.73 


LATITUDE 


3360158.07 

3360164.69 

3360184.57 

3360217.69 

3360264.07 

3360323.70 

3360396.58 

3360482.71 
3360582.10 
3360694.75 

3360820.65 
3360959.82 
3361112.24 

3361277.94 
3361456.90 

3361649. 14 

3361854.65 

3362073.43 

3362305.50 

3362550.86 

3362809.50 

3363081.44 
3363366.67 

3363665.21 
3363977.06 


30.30. 0. 


0 . 0 a 0 . 

0. 7.30. 
0.15. 0. 
0.22.30. 
0.30. 0. 
0.37.30. 
0.45. 0. 

0. 52.30. 
1 . 0 . 0 . 

1. 7.30. 

1.15. 0. 
1 .22.30. 

1.30. 0. 

1 .37.30. 

1.45. 0. 

1 .52.30. 

2 . 0 . 0 . 

2. 7.30. 

2.15. 0. 

2 .22.30. 

2.30. 0. 

2 .37.30. 

2.45. 0. 

2 .52.30. 

3. 0. 0. 


500000.00 

488004.68 

476009.34 

464013.94 

452018.46 

440022.86 

428027.13 

416031.23 

404035.13 
392033.81 

380042.24 
368045. 39 
356043.23 
34h050. 74 
332052.88 

320054.64 
308055.98 

296056.87 

284057.28 
272057.20 
26J056.58 

248055.41 

236053.65 

224051.28 
212048.27 


500000.00 
511995.32 

523990.66 
535986.06 

547981.54 

559977. 14 

571972.87 
583968.77 

595964.87 
607961.19 

61 9957. 76 

631954.61 

643951.77 
6559<*9.26 

667947.12 
679945.36 

691944.02 

703943.1 3 

715942. 72 
72/942.80 

739943.42 
751944.59 
76 19'i6. 35 

775948.72 

787951.73 


3374009.52 
3374016.16 

3374036.08 
3374069.29 
337 ,115.78 

3374175.55 

3374248.61 

3374334.95 

3374434.58 

3374547.51 
33 74673. 72 

3374813.22 

3374966.02 
3375132. 12 

3375311.52 

3375504.22 

3375710.23 

3375929.55 
3376162. 19 
3376408. ) 4 

3376667. 42 
33 76940.02 

3377225.95 
3377525.22 
3377837.82 
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LONG. 

EtWEST Of CMI 

EIEAST Of CHI 

NORTHING 


LATITUDE 




30.37.30. 



0 • 0 . 0 . 

500000.00 

500000.00 

3387861.24 

0. 7.30. 

488020.05 

511979.95 

3387867.89 

0.15. 0. 

476040.07 

523959.93 

3387887.87 

0.22.30. 

464060.04 

535939.96 

3387921.15 

0.30. 0. 

452079.92 

547920.08 

3387967.75 

0.37.30. 

440099.70 

559900.30 

3388027.67 

0.45. 0. 

428119.33 

571880.67 

3388100.90 

0.52.30. 

416138.80 

583861.20 

3388187.46 

1. 0. 0. 

404158.08 

595841.92 

3388287. 33 

1. 7.30. 

392177.13 

607822.87 

3388400.52 

1.15. 0. 

380195.94 

619804.06 

3388527.04 

1 .22.30. 

368214.47 

631785.53 

3388666.88 

1.30. 0. 

356232.70 

643767.30 

3388820.05 

1 .37.30. 

344250.59 

655749.41 

33o8986.55 

1.45. 0. 

332268.13 

667731.87 

3389166. 38 

1.52. 30. 

320285.27 

6797 14.73 

3389359.55 

2. 0. 0. 

308302.01 

691697.99 

3389566.06 

2 . 7. 30. 

296318.30 

703681.70 

3389785.91 

2.15. 0. 

284334.12 

715665.88 

3390019.10 

2 .22 .30. 

272349.45 

727650.55 

3390265.65 

2.30. 0. 

260364.25 

739635.75 

3390525.55 

2.37.30. 

248378.49 

751621.51 

3390798.81 

2.45. 0. 

236392. 16 

763607.84 

3391085.43 

2 .52.30. 

224405.22 

775594.78 

3391385.42 

3. 0. 0. 

212417.04 

787582.36 

3391698.76 


latitude 




O 

• 

• 

O 

• 


0 . 0 . 0 . 

500000.00 

500000.00 

3401713.22 

0. 7.30. 

488035.47 

511964.53 

3401719.90 

0.15. 0. 

476070.92 

523929.08 

3401739.92 

0.22.30. 

464106 .31 

535893.69 

3401773.28 

0.30. 0. 

452141.62 

547858.38 

3401820.00 

0.37.30. 

440176.82 

559823. 18 

3401860.06 

0.45. 0. 

428211.88 

571788.12 

3401953.4/ 

0.52.30. 

416246 .78 

583753.22 

3402040.23 

1 . 0. 0. 

404281.49 

595718.51 

3402140. 34 

1. 7.30. 

392315.9'' 

607684.03 

3402253.80 

1.15. 0. 

380350.21 

619649. 79 

3402380.62 

1.22.30. 

368384.18 

631615.82 

3402520.80 

1.30. 0. 

356417.85 

643582.15 

3402674. 33 

1 .37.30. 

344451. 18 

655548.82 

3402841.23 

1.45. 0. 

332484.17 

667515.83 

3403021 .4>< 

1 .52.30. 

320516. 76 

679433.24 

3403215. 12 

2. 0. 0. 

308548.95 

691451.05 

3403422. 12 

2. 7.30. 

296580. 70 

703419.30 

3403642.50 

2.15. 0. 

284611.98 

71 5388.02 

3403876.25 

2 .22. 30. 

272642. 78 

72 7357.22 

3404121.38 

2.30. 0. 

260673.05 

739326.95 

3404383.90 

2.37.30. 

248702.77 

751297.23 

3404657.81 

2.45. 0. 

236731.92 

76 3268.08 

3404945. 12 

2.52.30. 

224760.47 

775239.53 

3405245.82 

3. 0. 0. 

212788. 38 

7872 11.62 

3405559.93 


northing 





DELTA LONG. 


EIWEST OF CM) ECEAST OE CM) 

latitude 


i0.S2.30. 


0 . 0 . 0 . 

0. 7.30. 
0.15. 0. 
0.22.30. 
0.30. 0. 
0.37.30. 
0.A5. 0. 

0. 52.30. 
1 . 0 . 0 . 

1. 7.30. 

1.15. 0. 

1 .22.30. 

1.30. 0 . 

1.37.30. 

1. A5. 0. 

1.52.30. 

2 . 0 . 0 . 
2. 7.30. 

2.15. 0. 

2.22.30. 

2.30. 0. 

2.37.30. 
2.45. 0. 

2.52.30. 
3 . 0 . 0 . 


500000.00 
488050.95 

476101.88 
464152.75 
452203.54 
440254.22 

428304.77 
416355.15 

404405. 35 

392455.32 

380505.06 

368554.52 

356603.68 

344652.52 

332701.00 

320749.11 

308796.81 

296844.07 
284890.87 

272937.19 
260982.99 
249028. 25 
237072.93 

225117.03 
213160.49 


500000.00 

511949.05 

523898.12 

535847.25 

547796.46 

559745.78 

571695.23 

583644.85 

595594.65 

607544.68 

619494.94 

631445.48 

643396.32 

655347.48 

667299.00 

679250.89 
691203. 19 

703155.93 

715109.13 

727062.81 

739017.01 
750971.75 

762927.07 
774882.97 

786839.51 


latitude 


31. 0. 0. 


0 . 0 . 0 . 

0. 7.30. 
0.15. 0. 

0 .22.30. 
0.30. 0. 
0.37.30. 
0.45. 0 . 

0. 52.30. 

1 . 0 . 0 . 

1. 7.30. 

1.15. 0. 

1 .22.30. 

1.30. 0. 

1.37.30. 

1.45. 0. 

1 .52.30. 

2 . 0 . 0 . 

2. 7.30. 

2.15. 0. 

2 .22.30. 

2.30. 0. 

2.37.30. 

2.45. 0. 

2 .52.30. 

3. 0. 0. 


500000.00 
488066.49 
476132.95 

464199.36 

452265.69 
440331.91 

428398.00 

416463. 93 

404529.67 

392595. 19 

380660.47 

363725.48 

356790.20 
344854.59 
332918.64 

320982. 31 
309045.57 
297108.41 

285170.79 

273232.68 

261294.07 
249354.92 

237415.20 

225474.89 
213533.97 


500000.00 

511933.51 
52 J867.05 
535800.64 

547734.31 
559668.09 

571602.00 

583536. 07 

595470.33 

607404.81 

619339.53 

631274.52 

643209.80 
655145.41 

667081.36 

679017.69 

690954.43 
702891.59 

714829.21 

726767.32 
7387C5.93 

750645.08 

762584.80 

774525.1 1 

786466.03 


3415565.48 

3415572.17 

3415592.24 

3415625.68 

3415672.51 

3415732.71 

3415806.29 

3415893.26 

3415993.60 

3416107.34 

3416234.46 

3416374.96 

3416528.86 

3416696. 15 

3416876.84 

3417070.93 

3417278.42 

3417499.32 
3417733.62 

3417981.34 

3418242.47 

3418517.03 
3418805.02 

3419106.43 
3419421.28 


3429418.01 

5429424.72 

3429444.83 

3429478.35 

3429525.29 

3429585.63 

3429659.38 

3429746.55 
3429847.14 

3429961.13 

3430088.55 

3430229.39 
3430383.65 

3430551.33 

3430732.44 
3430926.98 
3431134.90 
3431356. 37 
3431591.22 

3431839.52 
3432101.27 

3432376.47 
3432665.12 
3432907.24 
3433282.83 


T 


DELTA LONG. 


E(NEST OF CMI 


ECEAST OF CM) 


LATITUDE 


31. 7.30. 


0 . 0 . 0 . 

0 . 7 . 30 . 
0.15. 0. 
0.22.30. 
0 .^ 0 . 0 . 
0.37.30. 
0.45. 0. 

0. 52.30. 

1 . 0 . 0 . 

1. 7.30. 

1.15. 0. 

1 .22.30. 

1.30. 0. 

1 .37.30. 
I .45. 0. 
1 .52.30. 

2 . 0 . 0 . 
2. 7.30. 

2.15. 0. 

2.22.30. 

2.30. 0. 

2.37.30. 
2.45. 0. 

2.52.30. 
3 . 0 . 0 . 


500000.00 
438082.08 
476164. 14 

464246. 15 

452328.07 

440409.89 
428491.57 

416573. 10 

404654.44 

392735.56 

380816.45 

363897.07 

356977.40 

345057.41 

333137.07 
321216.36 

309295.25 

297373.71 

285451.72 

273529.26 
261606.28 
249682.76 

237750.72 

225834.07 

213908.81 


500000.00 

511917.92 
523835.86 
535753.85 

547671.93 

559590.11 

571500.43 

583426.90 

595345.56 

607264.44 

619183.55 

631102.93 
643022.60 
654942.59 

666862.93 
678783.64 
690704.75 

702626.29 
714546.2 8 
726470.74 

738393.72 
750317.22 

762241.28 

774165.93 
786091 .19 


latitude 


31.15. 0. 


0 . 0 . 0 . 

0. 7.30. 
0.15. 0. 

0 .22.30. 
0.30. 0. 
0.37.30. 
0.45. 0. 

0. 52.30. 

1 . 0 . 0 . 

1. 7.30. 

1 .15. 0. 

1 .22.30. 

1.30. 0. 

1.37.30. 

1.45. 0. 

1.52.30. 

2 . 0 . 0 . 

2. 7.30. 
2.15. 0. 

2.22.30. 
?.30. 0. 

2.37.30. 

2.45. 0. 

2 .52.30. 

3. 0. 0. 


500000.00 

488097.73 

476195.44 
464293.10 

452390.68 

440488. 15 
428585.49 

416682.67 
404779.66 

392876.45 

380973.00 

369069.28 

357165.28 
345260.96 

333356.29 

321451. 26 
309545.83 

297639.98 

285733.68 

273826.91 
261919.64 
250011. 04 
238103.48 

226194.55 

214285.01 


500000.00 

51 1902.27 

523804.56 
535706.90 
547609. j2 
559511.85 
5714 14.51 

583317. 33 

595220.34 

607123.55 

619027.00 

630930.72 

642334. 72 
654739.04 
666643 .71 

678540.74 
6904 54. 1 7 

702360.02 
714266.32 
7261 73.09 
738080.36 

749988. l6 

761896.52 

773805.45 

785714.99 


NORTHING 


3443270.81 
3443277.53 
3443297.69 

3443331.29 
3443378.33 

3443438.82 

3443512.74 

43600.1 1 

3443700.93 
3443815. 19 
3443942.90 

3444084.07 

3444238.68 
3444406.76 

3444588.29 

3444783.28 
3444991.73 
3445213.66 
3495449.06 

3445697.93 

3445960.28 
3446236. 1 2 

3446525.44 
3446828.26 
3447144.57 


3457123.88 

3457130.62 

3457150.83 

3457104.50 

3457231.65 

3457292.28 

3457366. 37 

3457453.94 

3457554.99 

345 7669.51 

3457797.52 

3457939.00 

3458093.97 

3458262.43 

3458444 . 3b 

3458639.82 

3458848. 75 

3459071 . 18 

3459307. It 

3459556.56 

3459819.51 
3-60095.98 
3 *60385.97 
3460689.46 

3461 00 0 .52 


57 


E(WEST Uf TM) 


EIEAST OF CM) 


northing 


I 

i 


T 

t 


DELTA LONG. 


LATITUDE 


0. 0. 0. 

0. 7.30. 
0.15. 0. 
0.22.30. 
0.30. 0. 
0.37.30. 
0.45. 0. 

0. 52.30. 

1 . 0 . 0 . 

1. 7.30. 

1.15. 0. 

1 .22.30. 

1.30. 0. 
1 .37.30. 

1.45. 0. 

1 .52.30. 

2 . 0 . 0 . 

2. 7.30. 

2.15. 0. 

2.22.30. 

2.30. 0. 

2 .37.30. 

2.45. 0. 

2 .52.30. 

3. 0. 0. 


0 . 0 . 0 . 

0. 7.30. 
0.15. 0. 
0.22.30. 
0.30. 0. 
0.37.30. 
0.45. 0. 

0. 52.30. 

1 . 0 . 0 . 

1. 7.30. 

1.15. 0. 

1 .22.30. 

1.30. 0. 

1 .37.30. 

1.45. 0. 

1 .52.30. 

2 . 0 . 0 . 

2. 7.30. 

2.15. 0. 

2.22.30. 

2.30. 0. 

2.37. 30. 

2.45. 0. 

2.52.30. 

3. 0. 0. 


31 .22. 30. 


500000.00 

500000.00 

3470977.23 

408113.44 

51 1886.56 

3470983.98 

476226.86 

523773.14 

3471004.23 

464340.22 

535659.78 

3471037.99 

452453.51 

547546.49 

3471085.24 

440566 .69 

559433.31 

3471146.00 

428679. 74 

571320.26 

3471220.27 

416792.63 

583207.37 

3471308.04 

404905. 34 

595094.66 

3471409.31 

393017.84 

606982. 16 

3471524.10 

381130. 11 

618869.89 

3471652.39 

369242. 12 

630757.38 

3471794.20 

357353.84 

642646. 1 o 

3471949.52 

345465.24 

654534. 76 

3472118.36 

333576.31 

666423.69 

3472300.72 

321687.01 

678312.99 

3472496.60 

309797.32 

690202.68 

3472706.01 

297907.21 

702092.79 

3472928.94 

286016.66 

713983.34 

3473165.41 

274125.64 

725874.36 

3473415.42 

262234. 12 

737765.88 

3473678.97 

250342.08 

749657.92 

3473956.06 

238449.49 

761550.51 

3474246. 70 

226556.33 

773443.67 

3474550.90 

214662.57 

785337.43 

3474868.66 

latitude 

31.30. 0 

• 


500000.00 

500000.00 

3484830.85 

488129.21 

51 1870.79 

3484837.61 

476258. 39 

523741.61 

3484857.91 

464387.51 

5356 12.49 

3484891.74 

452516.56 

54 7483.44 

3464939.10 

440645. 51 

559354.49 

3485000.00 

428774.33 

571225.67 

3485074.43 

416902.99 

583097.01 

3485162.40 

405031.48 

594968.52 

3««5263.90 

393159. 75 

606840.25 

36 35378.94 

381287.79 

6187 12.21 

3h85507.52 

369415.58 

630584.42 

3485649.65 

357543. 08 

642456.92 

3485805.32 

345670. :7 

654329.73 

3485974.54 

33 1797. 12 

666202.88 

3486157.30 

321923.61 

678076. 39 

3486353.62 

310049 . 71 

•89950.29 

3486563.50 

298175.41 

701824.59 

3486786.94 

286300 . 66 

713699.34 

3487023.94 

274425.44 

725574.56 

3487274.51 

262549. 74 

73 74 50.26 

3487538.64 

250673.52 

749326.48 

3h8 7 816.36 

238796. 75 

761203 25 

3488107.65 

226919.42 

773080.58 

3688412.53 

215041.49 

784958.51 

3488731.00 


58 


delta long 


ECHEST IJE CM) 


E(F. ASI Of CM) 


NURrHINO 


0 • D • 0 w 
0 • 7 • 30 • 
0.15. 0. 
0.4i2.30. 
0.30. 0. 
0.37. 30. 
0.45. 0. 

0. 52.30. 

1 . 0. 0. 

1. 7.30. 

1.15. 0. 

I .22.30. 

1 . 30 . 0 . 

1 .37.30. 

1.45. 0. 

1 .52. 30. 

2 . 0 . 0 . 

2. 7.30. 

2.15. 0. 

2.22.30. 

2.30. 0. 

2.37.30. 

2.45. 0. 

2.32.30. 
3 . 0 . 0 . 


0 . 0 . 0 . 

0. 7.30. 
0.15. 0. 
0.22.30. 
0.30. 0. 
0.37.30. 

0 .45. 0. 

0. 52.30. 

1 . 0 . 0 . 

1. 7.30. 

1.15. 0. 

1 .22.30. 

1.30. 0. 

1.37.30. 

1.45. 0. 

1 .52.30. 

2 . 0 . 0 . 

2. 7.30. 

2.15. 0. 

2.22.30. 

2.30. 0. 

2.37.30. 

2.45. 0. 

2.52.30. 
< _ II . n. 


LATITUDE 


31.37.30. 


500000.00 

500000.00 

488145.03 

511854.97 

476290.03 

523709.97 

464434.96 

535^65.02 

452579.85 

547420. 1 5 

440724 .62 

559275.38 

428869. 26 

57U 30. 74 

41 7013. 75 

582986.25 

405 158.06 

594841.94 

393302. 16 

606697.84 

381446.04 

618553.96 

369589.66 

6304 10.34 

357732 .99 

642267 .01 

345876.02 

654123.98 

334018.72 

665981.28 

322161.06 

677838.94 

310303.01 

689696.99 

298444.56 

701555.44 

286585.67 

7134 14.33 

274726.32 

725273.68 

262866.48 

737133.52 

251006.14 

748993.86 

239145.25 

760854. 75 

227283. 80 

7727 16.20 

215421 .77 

784578.23 


LAT I TUDE 
31.45. 0. 

500000.00 
48d 160.50 
476321.78 
464482 .61 

452643.36 

440804.01 
428964.53 
417124.90 

405285. 10 
393445.09 
381604.85 

369764. 36 
357923.59 
346082 .52 

334241.11 

322399. 36 
310557.22 
298714.68 
286871.70 
275028.27 

263134.36 
251339.94 
239495.00 
227649.49 
215803.40 


500000. oO 

511839.10 
5236 78.22 
535517.39 

547356.64 
559195.99 

571035.47 

582875. 10 
5947 14.90 
606554.9 1 
618395. 15 

630235.64 
642076.41 

653917.48 
665758,89 

677600.64 
689442.78 
701285.32 
713128.30 
724971. 73 

7368 15.64 
74 8o 60. 06 
760505.00 
772350.51 
784196.60 


3498684. 74 
3498691 .52 

3498711.86 
3490745 .77 
3498/93.24 
3498854.27 

3498928.86 
3499017.02 

3499118.75 
3499234.05 
3499362.92 

3499505. 36 

3499061.37 
3499830.97 
3500014. I 4 
3500210.90 
3500421.24 
3500645.17 
3500882.70 
3501133.82 

3501 398.54 

3501676.87 
3501968.81 

3502274. 37 

3502593.54 


3512538.91 
3512545.70 
3512566.09 
3512600.07 

3512647.64 
3512708.8) 

3512783.57 

3512871.92 
3512973.87 
3513089.42 

3513218.57 
3513361.33 

3513517.69 

3513687.65 
3513871.23 

3514068.41 
3514279.22 
3514503.64 

3514741.69 
3514993.36 
3515258.67 
3515537.61 
3515830.19 

3516136.41 
35lo456. 2b 



1 

I 

j 

I ^ 



f " ' ' j 

I 

i 

I 

OELT 

A LONG. 

El WEST 

OF CM » 

El EAST UF 

CM» 

nurthing 


LAI ITUDt 


3 , 0 . 0 . 

0. 7.30. 
0.15. 0. 
0.22.30. 
0.30. 0. 
0.37.30. 
0.^5. 0 . 

0. 52.30. 

1 . 0 . 0 . 

1. 7.30. 

1.15. 0. 

I .22.30. 

1.30. 0. 

1 . 37.30. 

1.45. 0. 

1.52.30. 

2 . 0 . 0 . 

2. 7.30. 

2.15. 0. 

2.22.30. 

2.30. 0. 

2.37.30. 

2.45. 0. 

2 .52. 30. 

3 . 0. 0. 


31.52.30. 


bOOOOO .00 

4U61 76.B4 

476353 . o5 

464530.41 

452707.09 

440833.68 

429060. 14 

417236.45 

405412.58 

393588.52 

361764.22 

369939.68 

J58U4.86 

346269. 74 

334464. 30 

322638.50 

310812.32 

298985.75 

287158.75 

275331 .30 
263503. 37 
251674.9*. 
239845.98 

228016.47 
216186.39 


503000.00 

51 1623.16 

523646.35 

535469.59 

547292.91 

5591 16.32 

57C93r.d6 

582763.55 

594-JH7.42 

606411.48 

610235.73 

630060.32 

641885.14 

o537 10.26 

6655 35.70 

67/361.50 

6891 87.66 

7010 14.25 

712841.25 

724668. 70 

730496.63 

746325.06 

760154.02 

771983.53 

78 3813.61 


3526393.35 

3526400. 16 

3526420.59 

3526454.64 

3526502. 32 

3526563.62 

3526638.54 

3526727.09 

3526829.26 

3526945.06 

3527074.49 

3527217.56 

3527374.25 

3527544.59 

3527728.56 
3527926.18 
3528137.44 

3528362. 35 

3528600.91 
3528853.13 
35291 19.01 

3529398.56 

3529691.77 

3529998.66 

3530319.22 


latitude 


0 . 0 . 0 . 

0. 7.30. 
0.15. 0. 

0 .22.30. 
0.30. 0. 
0.37.30. 
0.45. 0. 

0. 52.30. 

1 . 0. 0. 

1. 7,30. 

1.15. 0. 

1 .22. 30. 

1.30. 0. 

1 . 37. 30. 

1.45. 0. 

I .5?. 30. 

2 . 0 . 0 . 

2. 7.30. 

2.15. 0. 

2 .22.30. 

7.30. 0. 

2.37.30. 

2.45. 0. 

2.52.30. 

3. 0. 0. 


500000.00 

468192.83 

476385.63 
464578. 38 
452 771 .06 

440963.63 

429156 .09 
*,1 7348.39 

405540.52 
393732.45 

381924. 16 

370115.62 

358306.81 
346497.70 
i3f688.27 

322878.48 
31 1068. 33 
299257. 78 

267446.81 
2 75635. 39 

263873.50 
252011. II 
240198.20 

228384. 75 
216570. 72 


5000C0.00 

511807.17 
52 36 14 , 3 7 

535421.62 
547228.94 

559036.37 

570343.91 
582651.61 
5544 59.48 
606267.55 
618075.84 
629884.36 
641653. 19 

653502.30 
66 5311.73 

677121.52 

686931 .6 7 

700742.22 
712553.19 
7243t4.6l 

736176.50 
74 7986 .89 
7598C1.80 

771615.25 
78 3*, 79 , 2 8 


3540248.07 

3540254.89 

3540275.37 

3540309.49 

3540357.27 

3540418.76 

3540493 . 78 

3540582 .52 

3540684.91 
3540800.96 

3540930.67 
3541074.0*, 
3541231.08 

3541401.78 
3541586.15 
3541764.19 
3541995.90 

3542221.30 

3542460. 37 
3542713.13 
3542979.58 
3543259. 73 

3543553.57 
3543861 . 1 1 

35441 82.37 


60 



2.30. 0. 
2 .37.30. 
2.45. 0. 

2.52.30. 

3. 0. 0. 


1 ). 0 . 0 . 
0. 7.30. 
0.15. 0. 
0.22.30. 
0.30. 0. 
0.37.30. 
0 .45 . 0. 

0. 52.30. 
1 . 0 . 0 . 

1. 7.30. 

1.15. 0. 
I .22.30. 

1 . 30 . 0 . 

1.37.30. 

1.45. 0. 

1 .52. 30. 

2 . 0 . 0 . 

2. 7.30. 

2.15. 0. 

2.22.30. 

2.30. 0. 

2 .37. 30. 

2.45. C. 
2.52. iO. 

3. 0. 0. 


I 


ECwCSI U» CM» flEASI OF CM) 

LAT 1 TUDt 

32. 7.30. 

500000.00 
4U»320<i.b 7 

470417.72 
4646 2o .52 
452835.24 

441043.87 
42*7252. 3 7 

417460.73 
405668. *7 I 
393876. *70 

382084.66 
370292. 15 
358499.43 
346706. 39 
334913.02 
323119. 31 
31 1325.24 
299530.77 

287735.88 
275940.55 

264144. 75 
252348.47 

24055 1.66 
2287^4. 3? 

216956.41 

LAI 1 ruoc 

32.15. 0. 

500000. 00 
488224.97 
4 76449.92 
4646 74 . 8 2 
4520*79.65 
441124. 38 

429340.99 
417573.45 

405797.75 
394021.85 
302245.72 

370409.36 
355692. 7 3 
346915.81 
335138.57 

323360.99 
311553.04 
299504.71 
255025.96 
2 76240. 78 
26‘»467 .13 
252U87.00 

240906. 36 
229125. 18 
217343.44 


•■0 0000.00 

511791. 11 
52 3582.28 
5353 73. -tb 
‘jH 7 1 64 • 7o 
558*7 56. 1 3 

5 7C747.o 3 
582539.2 7 
594331.09 
60ol 23. 10 

6 179 15.34 
629 707.82 
641500.57 
65 32 93.01 
668086.90 
6 768 d0.b9 
68 8o 74 . 7c 
70J<«69. 23 

712264. 12 
724059.45 
735855.25 
74 76 51. •> 3 
75944b. 34 
771265.6b 
78 304 3.59 


500000.00 

511775.03 
523550.08 

535325.18 
54 71C0. 35 
555875.62 

570651.01 
582426.55 
594202.25 
6059 78.15 
61 7754.2b 

629530.04 
o4l 3C7.7 7 

053084. 19 
66486 1.43 
b 7 66 39.01 

6 8 l6 . 96 

700195.29 
7 1 1974.04 
7c 37 5 3.22 
7 3 65 32. 8 7 

74 7i 13. JO 

75 #093..), 
77 J5 74.52 
7t2o56.56 



NOfU HINO 


3554103.06 
3554109 .90 
3554130.42 
3554164 .62 
3554212.50 

3554274. 06 
3554349.30 
3554438.23 
3554540. 84 
358465 7. 1 3 
35-J4787. 12 

355493 0. 79 
155508b. 16 
3555259.22 
3555443.98 
3555642 .46 
3555856.61 
3556080.48 
355632 J.Oo 
3556573. 3b 
3556840.3b 
3557121.11 

3557415 .80 

3557723. 70 

3558048. 71 


3567958.33 

3567965.1 9 
35o79b5. 75 

3568020.02 
35u80b8.00 
3568129.69 
3568205.09 

3568294.20 

3568397. 03 
3508513.57 
3508643. 83 
3563787.80 
3568945.50 
35691 16.92 

3569302.07 
35O9500.95 
j5o9 7 I 3 . JO 
3569939.90 
35 701 7‘). )9 
35 7 j6 3 3 . 32 
3870701 . 39 
3570982. 72 
3571277. J1 

3571 586 .08 
3871909.26 


61 


northing 


T 


OttTA LONG. 


0 . 0 . 0 • 

0. 7.30. 
0.1^. 0. 
0.22.30. 
0.30. 0. 
0.37.30. 
0.45. 0. 

0. 52.30. 

1 . 0 . 0 . 

1. 7.30. 

1.15. 0. 

1.22.30. 

1.30. 0. 

1.37.30. 

1.45. 0. 

1 .52.30. 

2 . 0 . 0 . 
2. 7.30. 

2.15. 0. 

2.22.30. 

2.30. 0. 

2 .37.30. 

2.45. 0. 

2.52.30. 
3 . 0 . 0 . 


1 . 0 . 0 . 

0 . 7 . 30 . 
0.15. 0. 

0 .22.30. 
J.30. 0. 
0.37.30. 
0.45. 0. 

0. 52.30. 

1 . 0 . 0 . 

1. 7.30. 

1 .1 '3. 0. 

1 .22.30. 

1 . 30. 0. 

1 . 37.30. 

1.45. 0. 

1 .52.30. 

2 . 0 . 0 . 

2. 7.30. 
2.15. 0. 

2.22.30. 

2.30. 0. 

2 . 37. 30. 

2.45. 0. 

2.52.30. 

3. 0. 0. 


EIHEST OF CM) EIEASI OF CM) 

LAT ',TU0E 
32.22.30. 


500000.00 

460241.13 

476482.24 

464723. 30 

*♦52964.29 

441205.16 

429445.95 

41 7686.57 

405927.03 

394167 . 30 

382407.35 

3 70647.16 

368886.70 

347125.95 

335364.90 

32 3603.50 

311841.75 

300079.60 

28831 7.06 
2 76554.07 
264790.63 

253026.7 1 
241262.29 
22949 7. 33 
2 1 7 7 31 .8 3 


500000.00 
51 1758.87 

523517.76 
5352 76.70 

547035.71 

558794.82 

576554.05 

582313.43 

594072.9 7 
6058 32.70 
t>l 7592.65 
629352.84 

641113.30 

652874. 05 

664635.10 
676396.50 

688158.25 
699920.40 
711682.94 
723445.93 
735209.37 
746973.29 

758737. 71 
770502.67 

782268.1 7 


LATITUOE 


32.30. 0. 


500000.00 

488257.35 
4 7o5 14 . 6 7 
464771.94 
453029.15 

441286. 25 

429543.24 
41 7800.09 

406056 .77 

394313.26 
382569.53 
370825.57 

359081 . 34 

347336.83 

335592.01 
32 3846.86 

312101. 34 

300355.45 
288609.16 

276862.43 

265115.25 
25336 7.60 

241619.45 

229370.77 

218121.55 


500300.00 
51 1742.65 
523485.33 

535228.06 
546970.85 

558713.75 

570456.76 
582199.91 
593943.23 
605o 86.74 
617430.47 

629174.43 

640918.66 

652663. 17 
664407.99 
676153.14 

687898.66 

699644.55 

71 1390.34 
72 3 1 37. ^7 
734o84 75 
74 66 32.4 0 
758 380. 65 
770129.23 
78 1 3 78. •♦5 


1 

( 


3581813.88 

3581 820. 75 

3581841 . 35 

3581075. 70 

3581923.78 

3531905.59 

3582061 .15 

3582150.45 

3582253.49 

3582370.27 

3582500.80 

3582645.08 

3582803. 10 

3582974.88 

3583160.41 

3583359.70 

3503572.75 

3583799.57 

3584040. 15 

3584294.51 

3584562.64 

3584844.55 

3585140.25 

3585449. 73 

3585773.01 


3595669.71 

3595676.59 

3595697.24 
3595731.65 

3595779.83 

3595841 . 77 
3595917.49 
3596006.97 
3596110.22 

3596227.24 
3596358.04 
3596502.61 
3596660.96 
3596833.09 

3597019.00 

3597218.70 
3597432. 19 
3597659.47 

3597900. 55 

3598155.43 
35984.,4. 1 1 

3596706 .00 
3599002.90 

3599313.02 
3599636.96 


62 


T 


delta long. 


EtWEST OF CM) 


ElEAST OF CM) 


northing 


0 . 0 . 0 . 

0. 7.30. 
0.15. 0. 
0.22.30. 
0.30. 0. 
0.37.30. 
0.45. 0. 

0 . 52.30. 

1 . 0 . 0 . 

1. 7.30. 

I .15. 0. 

I .22.30. 

1.30. 0. 

1 .37.30. 

1.45. 0. 

I .52.30. 
2 . 0 . 0 . 

2. 7.30. 
2.15. 0. 

2.22.30. 

2.30. 0. 

2.37.30. 

2.45. 0. 

2 .52.30. 
3 . 0 . 0 . 


0 . 0 . 0 . 

0. 7.30. 
0.15. 0. 
0.22.30. 
0.30. 0. 
0.37.30. 
0.45. 0. 

0. 52.30. 

I . 0 . 0 . 

1. 7.30. 

1.15. 0. 

1 .22.30. 

1.30. 0. 

I .17.30. 

1.45. 0. 

1.52.30. 

2 . 0 . 0 . 
2. 7.30. 

2.15. 0, 

2.22.30. 

2.30. 0 . 

2.37.30. 

2.45. 0. 

2.52.30. 
3. 0. 0. 


latitude 

32.37.30. 


500000.00 

488273.62 

4 T6547 .21 

4648 20 . T 5 

453094.23 

441 36 7.61 

429640.87 

4,17913.99 

406186.95 

394459.72 

382732.27 

371004.59 

359276.65 

34 7a48. 43 

335819.91 

324091.05 

312361.84 

300632 .25 

288902.26 
277 1 n .85 

265441.00 
253709.67 

241977.84 
230245.50 

218512.62 


500000.00 

511726.38 
52 34 52 . 79 
5351 79.25 
5469C5. 77 

553632.39 
570359.13 

582086.01 

593813.05 

605540.28 

6l 7267. 73 

628995.4 1 
640723.35 

652451.57 
664180.09 

675908.95 
6 8 76 38 . 1 6 

699367.75 

71 1097. 74 

722828.15 

734559.00 
746290.33 
75802?. 16 
769754.30 
781487.38 


LATI TUDE 
32.45. 0. 


500000.00 

488289.94 

476579.86 

464869.73 

453159.53 

441h49.24 

429738.84 

418028.29 

406317.58 

394606.68 

382895.57 

371184.23 
359472.64 
34 7760. 76 

336048.58 
324336.08 

312623.23 

300910.00 
289196 . }B 
277432.34 

265767.05 
25*»052.90 

242337.46 
230621 .51 
219905.03 


500000.00 

511710.06 

523420.14 

535130.27 

546840.47 

558550. 76 

570261.16 
581971. 71 

593682.42 
605393.32 

617104.43 

628815. 77 
640527.36 

652239.24 
663951.42 
675663.92 
6873 76. 7 7 

699090.00 
7108C3.62 
722517.66 
73t232.15 
745947.10 

757662.54 
7693 78.49 
7o1094.97 


4609525.81 

3609532.71 

3609553.40 

3609587.88 

3609636. 16 

3609698.23 

3EU9774.09 

3609963. 76 

360996 7.22 

3610084.48 

3610215.54 

3 610 360 .41 

36l 0519.00 

3610691.56 

36108/7.85 

3611077.95 

3611291.88 

3611519.62 

3611761.19 

3612016.58 

3612285.81 

3612568. 87 

3612865. 77 

3613176.52 

3613501.12 


3623382.20 
3623389. 11 
3623409 .64 

3623444.39 
3623492. 76 

3623554.96 

3623630.98 

3623720.82 
3623824.49 

3623941 .99 
3624073. 31 

3624218.47 
36243 7 7.46 
3624550.28 
3624736.95 
3624937.46 
3625151. ttl 

3625380.01 

3625622.06 
362587 7.96 
3626 147. 73 
3626431 . >6 
3626 728. 86 
3627040.23 
362 7365.4 7 





DELTA LONG. 

F( WEST OF CM) 

fcltAST OF CMl 

northing 


LATl '■UOE 




32.52. 30. 



0. 0. 0. 

500000.00 

500000.00 

3637238.86 

0. 7.30. 

4US306. 32 

5 1 1653.66 

3637245. 79 

0.15. 0. 

476612. 62 

523387.38 

3637266.56 

0.22.30. 

46'«<)ld.88 

535061. 12 

3637301 . 18 

0.30. 0. 

453225.06 

546774.94 

3637349.65 

0.37. 30. 

441531 .16 

558468.64 

3637411.97 

0 .45 . 0. 

429837. 14 

57Clt2.66 

3637488.14 

0.52. 30. 

^13142.97 

581657. 03 

3637578.16 

1. 0. 0. 

4064 48.65 

593551 .35 

3637682.03 

1. 7.30. 

394734. 15 

605245.85 

3637799.76 

1.15. 0. 

383059.43 

6U940.5 7 

3637931.35 

1 .22.30. 

371364.49 

628635.51 

3638076. 79 

1.30. 0. 

3596ti9.29 

640330.71 

3638236. 10 

1.37.30. 

347973.82 

652026. 18 

3638409.27 

1.45. 0. 

336270.05 

663721.95 

3638596.30 

1.52.30. 

324581.95 

675418.06 

3638797.21 

2 . 0. 0. 

312895.51 

6871 14.49 

3639011.98 

2. 7.30. 

301188.70 

6988 11. 30 

3639240.64 

2.15. 0. 

289491 .50 

710508.50 

3639483. 17 

2.22. 30. 

277793.08 

722206. 12 

3639139.58 

2.30. 0. 

206095.63 

733904. 1 7 

3640009.88 

2.37.30. 

254397. 31 

745602.69 

3640294.0 7 

2.45. 0. 

242698. J1 

757301.69 

3640592. 16 

2.52.30. 

230998.81 

769001.19 

3690904.15 

3. 0. 0. 

219296 . 76 

780701.22 

364 1 2 30 . 04 


LAII ruoE 




^3. 0. 0 

• 


0 . 0 . 0 . 

500000.00 

500000. JO 

3651095.61 

v3. 7.30. 

468322.76 

511677.24 

3651102.74 

0.15. 0. 

476645.50 

523354.50 

5651123.56 

0.22.30. 

464968. 19 

535031.61 

3651156.25 

0.30. 0. 

453290. 8t 

546709.18 

3651206.6 1 

0.37.30. 

441613.35 

558386.65 

3651269.25 

0.45. 0. 

429935. 77 

570064.23 

36 51 596. 5 7 

0.52. >0. 

418258.05 

561741.95 

3651935.77 

1 . 0. 0. 

406580. 1 7 

5934 19.6 3 

3651539.65 

L. 7.30. 

394902. 1 1 

605097.69 

3651657.61 

1.15. 0. 

383223. 85 

6167 76. 15 

3651789. o5 

1 .22. 30. 

371545.36 

o< 09 54 .64 

3651935. 38 

1.30. 0 . 

359866.61 

64 n 33. 39 

3652 095.00 

1 .37.30. 

346187.60 

06 18 12.40 

3652268. 51 

1.45. 0. 

316508.29 

00 3491.7 1 

3652455.91 

1 .52 . 30. 

324823.65 

675171.35 

3652657.21 

2. 0. 0. 

313148.68 

6866 51 . 32 

3652672.91 

2. 7.30. 

301466.34 

696631. 66 

3655101 .‘>1 

2.15. 0. 

299737.62 

710212.36 

3653349.51 

2.22. 30. 

276106.48 

721693.52 

3653601 . *3 

2.30. 0. 

266424.91 

733575.09 

3653872.26 

2.37.30. 

254792.89 

745257. 1 1 

3654157.01 

2.45. 0. 

243060. 39 

75693«i.61 

3654455 .63 

’.52. 30. 

231377.19 

768622.61 

3654768.28 

i. 0. 0. 

219693.66 

780.3C6. 1 9 

3655094.61 


64 


DELTA LONG. 

E( WEST Of CH) 

LATITUDE 
33. 7.30. 

EIEAiT OF 

0 . 0 . 0 . 

500000.00 

300000.00 

0. 7.30. 

488339.25 

511660. 75 

0.15. 0. 

476678.49 

523321.51 

0.22.30. 

465017.67 

534982.33 

0.30. 0. 

453356.79 

546643.21 

0.37.30. 

441695.82 

558304. 18 

0.45. 0. 

430034.74 

569965.26 

0.52.30. 

^18373.52 

581626.48 

1. 0. 0. 

406712.14 

593287.86 

1. 7.30. 

395050.58 

604949.42 

1.15. 0. 

383388.82 

6 166 1 1 . Iti 

1 .22.30. 

371726.84 

628273. 16 

1.30. 0. 

360064.60 

639935.40 

1.37.30. 

348402. 10 

6515S7.90 

1.45. 0. 

336739.30 

663260. 70 

1.52.30. 

325076.19 

674923.81 

2 . 0 . 0 . 

313412.74 

686587.26 

2. 7.30. 

301748.93 

698251.07 

2.15. 0. 

290084.74 

7099 16.26 

2.22.30. 

278420.14 

721579.86 

2.30. 0. 

266755. 12 

733244.88 

2.37.30. 

255089.64 

744910.36 

2.45. 0. 

243423.69 

7565 76. 31 

2.52.30. 

231757.24 

768242. 76 

3. 0. 0. 

220090.28 

LATITUDE 
33.15. 0. 

779909.72 

0 . 0 . 0 . 

500000.00 

500000.00 

0. 7.30. 

488355.80 

511644.20 

0.15. 0. 

476711.58 

52 3288.42 

0.22.30. 

465067.32 

534932.68 

0.30. 0. 

453422.99 

5465 77.01 

0.37.30. 

44 1778.57 

558221.43 

0.45. 0. 

430134.04 

569865.96 

0.52.30. 

4184T9.37 

5815 10.63 

1 . 0. 0. 

406844.55 

593155.45 

1. 7.30. 

395199.55 

604800.45 

1.15. 0. 

383554.35 

616445.65 

1 .22.30. 

371908.93 

628091.07 

1.30. 0. 

360263. 26 

639736. 74 

1 .37.30. 

348617.33 

651382.67 

1.45. 0 . 

336971 . 10 

663028. 90 

1 .52.30. 

325324.57 

674675.43 

2. 0. 0. 

313677.69 

686322. 31 

2. 7.30. 

302030.47 

697969.53 

2.15. 0. 

290382.86 

7096 17.14 

2 .22.30. 

278734.86 

721265. 1 4 

2.30. 0. 

267086.43 

732913.57 

2.37.30. 

255437.55 

749562.45 

2.45. 0. 

243788.21 

756211.79 

2.52. 30. 

232138. 38 

767861.6^ 

3. 0. 0. 

220488.04 

779511.96 


NORTHING 


3664953.03 

3664959.98 

3664980.84 

36o50l5.59 

3665064.25 

3665126.81 

3665203.28 

3665293.65 

3665397.93 

3665516.12 

3665648.22 

3665794.24 

3665954.16 

3666128.01 

3666315.77 
3666 517.46 
3666733.00 
3666962.62 
3667206.10 
3607463.51 
3667734.87 
3608J2 J. l6 
3668319.41 
36o86 32 .62 

3660959. 78 


3678810. 54 
367881 7. 50 
3678838.40 
3678873.22 

3678921.97 

3678984.05 
3679061.27 
3679151.81 
3679256.29 
3679374.71 

3679507.06 

3679653.36 
3679813.59 
3679987.77 
3680175.89 

3680377.97 
3600593.99 

3680823.98 
3681067.92 
3681325.83 
3681597.70 

3681883.95 

3082183.37 
3682497.17 

3082824.96 
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DELTA LONG 


E(EAST OF CM) 


NORFHING 




ECWEST OF CM) 


LATITUDE 

33.22.30. 


J. 0. 0. 

0. 7.30. 
0.13. 0. 
0.22.30. 
0.30. 0. 
0.37.30. 
0.4t>. 0. 

0. 52.30. 

1 . 0 . 0 . 

1. 7.30. 
1.15. 0. 
1 .22.30. 

1.30. 0. 
1 .37.30. 

1.45. 0. 
1 .52.30. 

2 . 0 . 0 . 

2. 7.30. 
?.15. 0. 

2.22.30. 

2.30. 0. 

2.37.30. 

2.45. 0. 

2.52.30. 

3. 0. 0. 


500000.00 

488372.41 

476744.79 
465117.13 

453489.41 

441861.59 

430233.67 

418605.62 

406977.41 
395349.02 
383720.44 

372091.63 
36U462. 58 
348033.27 

337203.68 
325573. 77 
313943.53 

302312.95 

290681.98 

279050.63 
267418.85 

255786.63 

244153.95 

232520.79 
220887. 12 


500000.00 

511627.59 
523255.21 
534862.87 
5465 10.59 

558138.41 
569766.33 

581394.38 

593022.59 

604650.98 

616279.56 
*>27908.37 

639537.42 
651166. 73 
662796.32 
674426.23 
6 860 56 .47 

697687.05 
7093 18.02 

720949. 37 

732581.15 

744213.37 

755846. 05 
767479.21 
7791 12.83 


LATITUDE 
33.30. 0. 


0 . 0 . 0 . 

0 . 7 . 30 . 
0.15. 0. 
0 .22.30. 
0.30. 0. 
0 .37 . 30. 
0.45. 0 . 

0. 52.30. 

1 . 0 . 0 . 

1. 7.30. 

1 .15. 0. 

1 .22. 30. 

1.30. 0. 

1.37.30. 

1.45. 0. 

1 .52. 30. 

2. C. 0. 

2. 7.30. 

2.15. 0. 

2.22.30. 

2.30. 0. 

2.37. 30. 

2.45. 0. 

2.52.30. 

3. 0. 0. 


500000.00 
<.88 389.0 7 

476778. 1 1 
465 16 7.1 1 
45 3556 . 05 
44 1944.90 

430333.64 

415722.25 
407110.70 

399498.99 
383887.07 

372274.94 

360662 .57 
349049. 9<« 
337437.03 
325823.8 1 

314210.26 

302596.37 
290982. 10 
2 79 36 7. <.5 
26775^. 38 
2561 )6. 88 
24-.D20.9.! 
232904.48 

221287.94 


5UCOOO.OO 

611610.93 
52 3221 .89 

934832.89 

946443.95 
558055.10 
56 96 66 .36 
58 1277. 75 
992889. 30 

604501.01 

616112.93 

627725.06 

639337.43 

650950.06 
6625t2. 97 
674 1 76.19 
6857E9.74 
697^03.63 

709317.90 
723632.55 
7322<«7.62 
743863. 1 2 
755479.08 
767095.52 
7787 12.46 


3692668. 38 
3692675.31 

3692696.24 
3692731.13 

3692779.97 
3692042 . 77 
3692919.53 

3693010.25 

3693114.93 

3693233.57 
3693366. 17 
36935U.74 
3693673.28 

3693847. 79 
3694036 .27 
3694238. 7? 
3694455. 16 
3694685.5b 

3694929.98 

3695188.38 
3695460. 7/ 

3695747.15 

3696047.34 

3696361.93 

3696690.34 


3 70652o . 40 

3706533. 39 
3706559.36 
370o589. 32 

3706638.25 
3706701 . 1 7 
3706770.07 
3706868.9b 
3706973.04 
3707092.70 

3707225.35 

3707372. 39 
3707533.2 3 
3707 708.07 

3707896.90 
3708099.73 

3708316.57 
370854 7.92 
3708792.29 

3709051.16 
3709329.00 

3709610.98 

3709911.93 

3710220.91 

3710555.93 


66 


r 




DELTA LONG. 


UMEST OF CM) ElEAST OF CM) NORTHING 

latitude 


0 . 0 . 0 . 

0. 7.30. 
0.15. 0. 
0.22.30. 
0.30. 0. 
0.37.30. 
0.45. 0. 

0. 52.30. 

I . 0 . 0 . 

1. 7.30. 

1.15. 0. 

1.22.30. 

1.30. 0. 

1.37.30. 

1.45. 0. 
1 .52.30. 

2 . 0 . 0 . 

2. 7.30. 

2.15. 0. 

2.22.30. 

2.30. 0. 

2.37.30. 

2.45. 0. 

2.52.30. 

3. 0. 0. 


33.37.30. 


500000.00 

488405.78 

476811.54 

465217.26 
453622.91 
442028.48 
430433.94 

418839.27 

407244.44 

395649.45 
384054.26 

372458.86 

360863.22 
349267.33 
337671.15 
326074.67 

314477.87 
302880.73 

291283.22 
279685.32 
268087.02 

256488.28 
244889.09 
233289.43 

221689.28 


500000.00 

511594.22 

523188.46 

534782.74 

546377.09 

557971.52 

569566.06 

581160.73 
592755.56 
604350.55 

615945.74 
627541.14 

639136.78 

650732.67 
662328.85 
673925.33 
685522. 13 
657119.27 

708716.78 

720314.68 
73 1912.98 
748511.72 
7551 10.91 
766710.57 
7783 10.72 


3720384.76 

3720391.76 

3720412.77 

3720447.79 

3720496.82 
3720559.85 
3720636.90 
3720727.95 

3720833.02 

3720952. 10 
3721085.20 
3721232.31 
3721393.45 
3721568.60 

3721757.79 
3721961.00 
8722178.24 
3722409.51 

3722654.83 
372291t. 18 
3723187.58 

3723475.03 
3723776.54 

3724092. 10 
3724421.73 


LATITUDE 
33.45. 0. 


0 . 0 . 0 . 

500000.00 

500000.00 

3734243.40 

0. 7.30. 

488422.55 

511577.45 

3734250.41 

0.15. 0. 

476845.08 

523154.92 

3734271.46 

0.22.30. 

465267.57 

534732.43 

3784306.54 

0.30. 0. 

453689.99 

5463 10.01 

3734355.66 

0.37.30. 

442112.33 

557887.67 

3734418.81 

0.45. 0. 

430534.57 

569465.43 

8734495.99 

0.52.30. 

418956.67 

581043.33 

3734587.22 

1 . 0. 0. 

407378.63 

592621.37 

3734692.48 

1. 7.30. 

395800.41 

604199.59 

3734811.78 

1.15. 0. 

384222.01 

615777.99 

3734945.12 

1.22.30. 

372643.39 

627356.61 

3735092.50 

1.30. 0. 

361064.54 

638935.46 

3735253.93 

1 .37.30. 

349485.43 

650514.57 

3785429.41 

1.45. 0. 

337906.05 

662093.95 

8735618.93 

1.52.30. 

826326. 37 

6786 73.68 

3735822.51 

2 . 0. 0. 

314 ^46. 37 

685253.63 

3736040.15 

2. 7.30. 

303166 .03 

696833.97 

8786271.85 

2.15. 0. 

291585. 83 

708414.67 

373651 7.61 

2.22.30. 

280004.25 

719995.75 

3736777. *14 

2.30. 0. 

268422. 76 

781577.24 

3737051 . 34 

2 .37.30. 

256840.85 

743159. 15 

3737339.31 

2.45. 0. 

245258.49 

754741.51 

3737641.36 

2.52.30. 

233675.66 

766324.34 

3737957. 50 

3. 0. 0. 

222092.85 

77 79 07.65 

8738287. 73 


r 







67 


LONG. 


0 « 0 . 0 . 

0. 7.30. 
0.15. 0. 
0.22.30. 
0.30. 0. 
0.37.30. 
0.<>5. 0. 

0. 52.30. 

1 . 0 . 0 . 
1. 7.30. 

1.15. 0. 

I .22.30. 

1.30. 0. 

1.37.30. 

1. <>5. 0. 

I .52.30. 

2 . 0 . 0 . 
?. 7.30. 

2.15. 0. 

2.22.30. 

2.30. 0. 
2 . 3/. 30. 
2.<»5. 0. 

2.52.30. 
3 . 0. 0. 


0 • 0 . 0 . 

0. 7.30. 
0.15. 0. 

J .22.30. 
0.30. 0. 
0.37. 10. 
0.^5. 0. 

0 . 52. 30. 

1 . 0 . 0 . 
1. 7.30. 

1.15. 0. 

I .22.30. 
L . 3 0 . 0 . 
I . 37.30. 

1. ^5. 0. 
I .52.30. 

2 . 0 . 0 . 

2. 7.30. 

2.15. 0. 

2 .22.30. 

2.30. 0. 

2.37.30. 

2. '♦5. 0. 

2 .52.30. 

3. 0. 0. 


FCWEST UE CM) f(EAST OF CM) 

LAT I TOOL 
33.52.30. 


500000.00 
488A39. 38 
<176878. 73 
<165318.05 

953757.30 

992196.97 
,30635.53 
919079.96 

907513.25 
395951.87 

389390.30 

372828.53 
361266.52 

399709.25 

338191. 72 

326578.89 

315015.75 
303952.2 7 

291888.93 
280329.22 
268759.60 

257199.57 
295629.10 

239063. 16 

222996.79 


500J0U.00 
511 otiO .6 2 
t)23l2l.27 

S39681.95 
5962 92 . 70 

557803.53 
569369. ‘♦7 
580925. 59 

592986. 75 
609098. 1 3 
615609. 70 

6271 71.97 

638733.98 

650295. 75 

661858.28 

673921. I I 

689989.25 

696597, 73 

7081 11.57 
719675. 78 

731290.90 

792805.93 

759370.90 
765936.89 
77 7503.26 


latitude 


39. 0. 0. 


500000.00 

988956 . 26 

976912.99 

965368.69 
953829.62 
*.92280.87 

930736.82 

919192.69 
907693.32 

396103.83 

389559 . 15 
3T3UIh. 27 

361969.15 

399923.79 

338378. 16 

326832. 29 

315286.01 

303739.99 

292192. 53 

280695 .29 
269097.55 

257599.95 
2960C0.92 

239951 . 93 
222902.97. 


5OOO0U.00 

511593.79 

52 3087.5 1 

5396 11.31 

5961 75. 10 

5577 19. 1 3 

565263.18 

580807,36 

592351.68 

603896. 1 7 

615990.85 

626985.73 

638530.35 

6500 76.2 I 

66 16 21 . 

0/3167.76 

689713.99 

696260.56 

707907.97 

719359.76 

7309C2.95 

792950.55 

753959.08 

7655*8.07 

777097.59 


northing 


3798102.32 

3798109.35 

3798130.93 

3798165.58 

3798219.78 

3798278.05 

3798355.37 

3798996. 76 

3798552.21 

3 798671.72 

3798805. 30 

3798952.95 

3799119.67 

3/99290.97 

3 799980.39 

3799689.29 

3 799902.32 

3750139.93 
3750380.63 

3750690.93 
3 730915. 32 
3751203.81 
3751506.91 
3751823. 12 

3752153.79 


3761961.53 

3761968.57 

3761989.69 
3 762029.90 
3 762079. 19 

3762137.57 
3 762215.03 
i7o2iO6.50 
3/62912.22 

3762531.95 
3 7 u2665 .7 7 
3762813.68 
3762975.09 

3703151.79 
37633‘«2.0J 
j 7 o3596 . 3 1 
3 703769. 73 

i7o3997.26 

3769293.90 
5 769509 .6o 
3 769779.39 
j 7o5<JOH . 39 
3 76537 1.68 

3765686.95 
3 7o6020. 3o 


DELTA LONG 


E( WEST OE CNI 


ElEASI JF CM» 


NORTHING 


LATITUDE 

7.30. 


0 . 0 • 0 • 

0. 7.30. 
0.15. 0. 
0.22.30. 
0.30. 0. 
0.37.30. 
0.<»5. 0. 

0. 52.30. 

1 . 0 . 0 . 

1. 7.30. 

1.15. 0. 
1 .22.30. 

1.30. 0. 

1.37.30. 
1 .45. 0. 

1.52.30. 

2 . 0 . 0 . 
2. 7.30. 

2.15. 0. 

2.22.30. 
2.3J. 0. 

2.37.30. 
2.45. 0. 

2.52.30. 
3 . 0 . 0 . 


0 . 0 . 0 . 

0. 7.30. 
0.15. 0. 
0.22.30. 
0.30. 0. 
0.37.30. 
0.45. 0. 

0. 52.30. 

1 . 0 . 0 . 

1. 7.30. 

1.15. 0. 

1 .22. 30. 

1.30. 0. 

I .37.30. 
I .45. 0. 

1 .52.30. 

2 . 0 . 0 . 

2. 7.30. 

2.15. 0. 

2.22.30. 

2.30. 0 . 

2.37.30. 
2 .45 . 0. 

2.52.30. 

3. 0. 0. 


500000.00 

488473.19 
47694*'.. 

465419.50 
453892.57 

442365.50 

430838.44 

419311.20 
407783.82 
396256.28 

384728.55 
373200.61 

361672.45 
350144.05 
338ol5. 36 
327036.‘t2 
315557.15 

304027.55 
292497.01 
280967.30 
269436.60 

257905.49 

246373.95 

234841.96 

223309.50 


50OOCU.OO 

511526.81 

523053.03 

534580.50 
546107.43 
55 7o34.44 

569161.50 

580688.50 
5942 16.18 
603743. 72 

615271.45 

626799.39 

638327.55 
649855.95 
661334.6? 
6729 13.58 
684442.85 

695972.45 

707502.39 
719032. 70 

730563.40 

742094.51 
753o26.05 
765158.04 

776690.50 


500000.00 

51 1509.82 

523019.65 

534529.53 

546039.47 

55 7549.49 

569059.61 

580569.35 

592080.23 

603590.78 

615101.51 

6266 12.44 

638123.59 

649634.98 

6611 ^ 6.64 

672658.58 
684 1 70. 3 3 
695683.40 
707196.31 
71 87 C9. 59 
730223.25 
741737.34 
753251.81 
764/66.75 
7 /o282. 15 


LATITUDE 

34.15. 0. 

500000.00 
488490.18 
476980.35 
46 54 70.47 
453960.53 
442450.51 
430940.39 
419430. 15 
407919.77 
396409.22 
384898.49 
373387.56 

361876.41 

350365.02 
338853. 36 
32 7341.42 
315829.17 
304316. oO 
292803.69 
281290.91 
269776. 75 
2582 o2.68 
246748. 19 
235233.25 
22 171 7.65 


3775821.02 

3775828.07 

3775849.24 

3775884.51 
3775933.88 
3775997.37 
3776074.97 
37 76166.68 

3776272.51 
3776392.44 

3776526.50 
3 776674.67 
3 776836.96 
17 77013.33 
3777203.92 
3777408.59 
3777627.39 
3777860. 33 
3778107.41 
3778368.62 
3778643.99 

3778933.50 
1779237.1 7 
37 79554.99 
3779886.98 


3 789660.80 
373968 7. 86 
3 789709.06 
3789744. 39 
3 789 793.86 
3 789857 . ‘♦6 
3769935. 19 

3790027.06 

3790133.07 

3790253.22 
179038 7. 50 
37 7vj535.93 

3790098 . 5 1 

3790875.23 
3 791060 . 10 
3 791271 . 1 3 
379149J. 31 

1791 723. 05 
1791971. 16 
1792212.83 
1 792 503 . 6 7 
17 92 796 .66 
3 7931 02 . 38 
1 793421 .25 
1793753. 82 


f 







DHTA LONG. 

E( WEST UF CM) 1 

EiEASI OF CM) 

northing 


latitude 




3<».22.30. 



0 • 0 . 0 . 

500000.00 

500000. 10 

3803540.86 

0. 7.10. 

4B8507 .23 

5 11492.77 

3803547.94 

0.15. 0. 


522986.56 

3803569. 18 

0.22.30. 

46752 L . 6 1 

534478.39 

3803604.57 

0.30. 0. 

45402B. 72 

645971.26 

3803654.12 

0.37.30. 

442535.74 

55 7464.26 

3803717.83 

0 .<*5 . 0. 

43 1042.6 7 

568957 .33 

3803796.69 

0.52. 30. 

41 9549.48 

560450.5? 

3803887.72 

1 . 0 . 0 . 

408056 . 1 5 

591943.85 

3803993.91 

1 . 7. 30. 

390562.66 

603437.34 

3604114.26 

1.15. 0. 

385068.99 

61‘<931 .01 

3804248. 78 

1.22. 30. 

373375.1? 

626424.88 

3804 39 7 .46 

1.30. 0. 

362081 .03 

63 79 18.'# 7 

3804560. 32 

1.37.30. 

350586 . 70 

6494 13. 30 

3804737.34 

1 ,<*5. 0. 

339092. 1 ) 

660907.89 

3804928.54 

1.52.30. 

32 759 7 . Z4 

672402.76 

3805133.92 

2 . 0. 0. 

3 16102 .0 7 

683897.93 

3805353.48 

2. 7.30. 

304o06 .53 

695393.42 

3805587.22 

2.15. 0. 

293110.75 

706889.25 

3805836. 15 

2.22.30. 

281614.56 

718385.44 

3806097.27 

2.30. 0. 

270117.99 

729882.01 

3806373.68 

2 . 3 7 . 30. 

258621 .02 

741376.98 

3806664. 09 

2.^5. 0. 

2*»7123.64 

752676. 36 

380t)9b8.Hl 

2 .52. 30. 

235625. 81 

7643 74.19 

3807287. 73 

3. 0. 0. 

224127.52 

7768 72.48 

3607620.8b 


LAI 1 TUOt 




34.30. 0 

• 


0. 0. 0. 

500000.00 

50C0C0.00 

3817401.22 

0. 7.30. 

488524.33 

51 1475.67 

3317408.31 

0.15. 0. 

477048.64 

622951.36 

3817429.68 

0.22. 30. 

465572.91 

534427.09 

381 7466.03 

0 . 30 . 0 . 

454097. 12 

546902.88 

3817514.66 

) . 37 . 30. 

442621 .25 

66 73 78.76 

3817576.48 

0.<>5. 0. 

431145.28 

568854. 7? 

381 7656.48 

0.52. 30. 

«♦. 9669.20 

680330.80 

38 1 7 748.66 

1 . 0 . 0. 

403192.97 

5918C7.03 

381 7855.06 

1 . 7 . 30. 

396716.59 

603283.41 

3817975.69 

1.15. 0. 

385240. 03 

614759.97 

38181 10. 33 

1.22. 30. 

373763.28 

623236.72 

3818259.27 

1 . 10. 0. 

362286. 30 

637713.70 

3 8 18422 .40 

1 .37.30. 

350809.09 

6491 90.91 

3818599. 72 

1.^5. 0. 

339331.63 

660668 . i 7 

3818791.25 

1 .52.30. 

327853.88 

672146.12 

3 818996.9 7 

2 . 0. 0. 

316375.84 

683624.16 

3819216.90 

2. 7.30. 

304897. 49 

695102.61 

6B'9451 .04 

2.15. 0. 

293416.80 

706581.20 

3819699. 38 

2 .22 . 30. 

281939. 75 

71806J.26 

3dl99bl.94 

2.30. 0. 

270460. 33 

729539.67 

6820268. 72 

2 . 3 7.30 . 

253980.52 

74 1 J 19. «8 

3820529.76 

2 . *^5 . 0. 

24 7600.29 

752499.7 i 

6d2oo34.9b 

! .52. 30. 

236019.6 3 

76 3980. 3 7 

3821 154.42 

3 . 0 . 0 . 

2246 38.61 

7 7 »46l .‘♦9 

682 1 -*80 . 1 1 



c 


/O 


NUXTHING 


long. 


ElMEST OF CMJ E I E AS T OF CK » 

latitude 


1<,.37.30. 


3. J. 0. 

0. 7.30. 
0.15. 0. 
0.22.30. 
0.30. 0. 
0.37.30. 

0. 45. 0. 

0 .52.30. 

1 . 0 . 0 . 

1. 7.30. 

1.15. 0. 

1 .22.30. 

1.30. 0. 

1 .37.30. 

1.45. 0. 

1.52.30. 

2 . 0 . 0 . 

2. 7.30. 

2.15. 0. 
2 .22.30. 

2.30. 0 . 

2.37.30. 

2.45. 0. 

2.52.30. 

3. 0. 0. 


500000.00 

483541 .48 
477082. <^5 

465624.37 
454165. 74 

442707.03 

431248.22 

419709.30 

403330 .24 
396871.02 

385411.62 

373952.04 

362492.23 
351032.20 
339571.91 
323111.35 

316650.49 
305189.33 

293727.83 

282265.98 

270803. 77 
259341 . 16 
247878.14 
236414. 70 
224950.81 


500000.00 

511458.52 

522917.05 

534375.63 

545834.26 

557292.9 7 

568751.78 
5802 10.70 

591669.76 

603128.98 

614588.30 

626047.96 

637507.77 
6*8967.80 

660428.09 
671888.65 
683349.51 
b948 10.67 
70t>2 72.1 7 
717734.02 

729196.23 

740658.84 
752121.86 

763585.30 
775049.19 


latitude 
34.45. 0. 


0. 0. U. 

0. 7. 3D. 
0.15. 0. 
0.22.30. 
0.30. 0. 
0.37. 30. 
0.45. 0. 
0.52.30. 

I . 0. 0. 

I . 7.30. 

1.15. 0. 

I .22.30. 

1.30. 0. 

I .37.30. 

1.45. 0. 

1 .52.30. 
? . 0 . 0 . 
2. 7.30. 

2.15. 0. 

2.22.30. 

2.30. 0. 

2.37.30. 

2.45. 0. 

2 .52. 30. 
3 . 0 . 0 . 


500000.00 
468558.69 

477117.37 

465676.00 

454234.50 
442793. 08 
431351-49 

19909 .78 

403467. 93 

397025.93 
385583. 76 
374141 .40 
3o2ts98. 82 

351256.01 

339812.96 

328369.63 

316926.02 

305482. 10 

294037.85 

232593.25 
271148.29 
2597j2 .95 
248257.20 

2368 11.03 
225364.42 


50COOO.OO 

511441.31 

522882.63 
534324.00 
545765.42 
357200.92 
5o0o4e. 5 I 
580090.22 

591532.07 

602974.07 
6l44 16.24 
625858 .60 
O37301.1B 
648/43.99 

660187.04 

671630. 37 

685073.98 
6945 17.90 
705962. 15 
71 7406.75 
72885 1 . 7 1 
7 4 02 9 7 . J 5 
75 I 742. 80 
7631UE.9 7 

774655.50 


3831261.85 

3851266.96 
3 831290.26 

3831325.77 
3831375.49 
3831439.41 
3851517.54 

3831609.86 
3831716.43 
3831837.18 
3831972.16 
3832121.34 
38 32284.74 
3832462 . 36 
3832654.21 
3832860.28 
3833080.57 

3833513.10 
38 35563 . 86 
3 8 33826 . 86 

3834104.10 
3834395.59 
3834701 . 3 3 
3835021 . 32 
3835355.58 


3845122. 7U 

3845129.90 

3fi-»5l51.24 

3845186.81 

3845236.61 

3845300.6 3 
3BH5378. 89 
3b‘«5‘*7 1.38 
38‘«5578 . 10 

3845699.06 

3845834.25 
38t5903.o9 
384614 7 . 36 
38*6325.27 
384651 7.43 
5 8*67? 3 . 84 

3846944.50 
3847179.41 
384 7428.58 
384 7692.02 
384 7969. 72 
38*8261 .o« 

3848557.93 
3 848888 .44 
38*9223.25 


LONG. 


0 . a . 0 . 

0. 7.30. 

0.15. 0. 
0.22.30. 
0.30. 0. 
0 .37 . 30. 
0.^5. 0 . 

0 . 52 .30. 

L . 0 . O . 

1. 7.30. 

1.15. 0. 

1.22.30. 

1.30. 0 . 

1.37. 30. 

1. <r5. 0. 

1.52. 30. 

2 . 0 . 0 . 

2. 7.30. 
2.1*>. 0. 

2.22.30. 

2.30. 0. 
2.37 . 30. 
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PREFACE 



This booklet, one in the series of ARIS publications, 
has been written to guide the system user in accessing 
and using the census data bases incorporated into 
ARIS. For an overview of the ARIS system and its 
purpose, the reader is invited to read the booklet 
"An Introduction to ARIS", copies of which are avail- 
able from the State Planning Division of the Alabama 
Development Office. 

Two separate types of data. population and housing, 
comprise the ARIS census data base. Both are minor 
reconfigurations of the U.S. Bureau of the Census 
1970 U.S. Census Fourth Count Summary (Population 
and Housing) for the State of Alabama. The pro- 
cessing software described in this booklet is based 
on the Bureau of the Census DAUList program packages 
with respect to the general configuration of the 
available output tables and their respective head- 
ings. DAUList is based on the computer language 
COBOL while ARISCENS utilizes the PL/1 computer 
language and ISAM (indexed sequential access method) 
data files. 

For a complete description of the data base content 
and the structure of the available output tables, 
the user is encouraged to acquire copies of the 
Bureau of the Census publications "1970 Census Users' 
Guide" (parts I and II), "DAUList 4 Housing", and 
"DAUList 4 Population". 

This booklet replaces the draft manual "CENSus-LISTer 
(CENSLIST) User's Manual" issued in July 1975. The 
contents of that manual have been incorporated as 
necessary into this publication. 



INQUIRIES RELATIVE TO ARIS SHOULD BE 
DIRECTED TO THE ALABAMA DEVELOPMENT 
OFFICE, STATE PLANNING DIVISION, 
MONTGOMERY, ALABAMA 
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CENSUS INFORMATION SYSTEMS CONCEPTS: 


INTRODUCTION 

The purpose of the ARISCENS software Packages is to 
provide procedures for the retrieval of 
ulation and housing analysis information ^^om the 
1970 U.S. Census of Population and Housing, Fourtn 
Count Summary. Information the census S'J'T'maries 
is structured into discrete tables ®t the relativeliy 
detailed level of the Census County Divsion (CCD) . 
Manual analysis of information at this level o 
detail is very time consuming because of the mass 
of material. Appendix A to this 
maps showing the location of all Alabama CCD s. 

♦Census County Divisions. - Census County Divisions 
(CCD’s) were established first in the State o 

Washington for use in the w other 

I960 and 1960. they were established in 17 other 
States (including Alabama and during the 'ast 
decade n three additional States. In reviewing 
threxisting CCD’s for the 1970 census, some revi- 

IJonrifr^made to i-Prove their usefulness or 

example, most of the counties which were a sing.e 
division in 1960 were divided into two census 
county divisions to provide more detail. 

CCD’s represent community areas which been 

SeJin,; in recent decades b, the 

the Chhperation of ‘I' S'"""":' s 

ir.rr^ni^-’r.aJler” r . 0^ 

j;rh:ie^^'rrtrcrhaurJeU;n”;i:e;rhhS;;;Hes fr.. 

SueStly changed, were ^"’^^inary lines, 

well known by many of Sw physi- 

relatively permanent boundaries which 
«1 features or the limits of incorporated places. 
Where an unincorporated en^^ve exists within a 

city, it is included in the same CCD as tne city. 

5n establishing CCD’s, consideration wa* g ven 

mainly to the trade or service areas of principal 

’r5l5n;;’rarh?c’3,’f?rre'nret! ; fh^rco - 

Il5med."°The°Lu%ciIiirerfrom%he bureau of the 
Census for Alabama utilizes rather than 

for the various CCD'S, even 
CCD’S are named (see Appendix A). A table reiatng 
the Alabama “D code numbers to the CCD na 
on the maps is included as Appendix o to 
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The ARISCENS software has been designed to reduce 
the quantity of Information (discrete tables) han- 
dled by the analyst through the provision of sum- 
marlzatlons over divisions larger than the CCD. in 
addition to the basic DAULlst 4 provision of many 
discrete tables at the CCD level (called table 
building), ARISCENS permits both the aggregation 
of Information from two or more census districts 
into a single table or table set (table aggrega- 
tion) and a method to search through all census 
districts Into a single table or table set (table 
aqqreqatlon) and a method to search through all 
census districts to determine those having certain 
requested attribute values equal to or greater than 
a specified target value (searches). 

ARISCENS processing software utilizes the ‘‘o^^ept 
of request sets to access the several data bases. 
The request set function (table building, 
aggregation, or search) Is communicated by the pre- 
sence of certain keywords In the user commands to 
the procedures. The bulk of this manual Is devoted 
to examples of the structure of the 
utilized to retrieve Information from the data 

base(s) . 





BATCH PROCESSING 

The version of the ARISCLNS procedures presented in 
this manual is structured to operate in a batch pro- 
cessing mode (the batch or group of various jobs 
which have been read into the computer and awaiting 
processing by the computer on a priority basis 
determined by the computer resources of memory 
space, time, etc. required by each batched Job) 
using sets of punched cards to transmit user com- 
mands for computer processing. This mode of pro- 
cessing was chosen because of the type of computer 
equipment available during the procedure design 
period of the project. When appropriate equipment 
becomes available and the ARIS II preprocessor 
becomes available, the ARISCENS procedures will be 
accessible through remote job entry terminals with- 
out the use of punched cards. The ARIS II user 
steps outlined beginning on page 23 of "An Intro- 
duction to ARIS" will be applicable to the ARISCENS 
procedures . 







SYSTEM DOCUMENTATION 

Full documentation of the ARISCENS computer proce- 
dures including program listing and 
are available from the State Planning Division of 
the Alabama Development Office. ARISCENS 
is written using the Programming Language One (PL/ 1 ) 
computer language for use on large scale I^M com- 
puters. Without major programming change, system 
portability to equipment from other 
is severely limited. Such limited portability is 
due to the significant differences in language 
implementations, computer word structures, a"*! JJ,'® 
handling procedures existing for computers of dif- 
ferent manufacture. 


3 



JOB CONTROL LANGUAGE 

Appendix C to this manual contains details related 
to the computer system control cards required for 
the execution of ARISCENS jobs. One of the func- 
tions of the ARIS II preprocessor noted earlier Is 
to supply these items of information. Until acti- 
vation of that preprocessor, certain job control 
language (JCL) entries must be prepared by the user, 
A rundown of the JCL cards used to process ARISCENS 
on Auburn University's IBM System 370/158 computer 
is included as Appendix C. An explanation of the 
content of each card is also included as an aid to 
user understanding and to facilitate system imple- 
mentation on other IBM System 360/370 computers. 



GENERAL INSTRUCTIONS 

ARISCENS software consists of three primary proce- 
dures. The first, in order of necessary use, is 
concerned with entering the appropriate data base 
(housing or population) into the computer from off- 
line storage. Continuous, on-line storage of ARIS 
data bases is not economically feasible. The census 
related data bases are especially larae and would be 
extremely expensive to store on-line (computer 
accessible) continuously. The other procedures, 
CENSLIST and HOUSLIST, are the primary software used 
for performing table building* table aggregation, 
and searches on the populatior and housing data 


As noted, ARISCENS processing is accomplished through 
the use of request sets. Request sets can be of 
three types: table building, table aggregation, and 

search. Each submission of an ARISCENS job can con- 
tain as many different request sets as desired. 

Each request set must end with a semi-colon. Key 
word* values must be enclosed with single quote 
marks ('). When multiple values are specified for 
a key word, commas must be used as separators be- 
tween the values. Once a key word is given a 
value(s), the value(s) is retained for all request 
sets until the kev word is respecified (in a given 
job submission). This retention exists for all key 
words except SEARCH and AGGREGATE. These latter are 
assumed to have the value 'NO' unless specifically 
given the value 'YES' in each request set. When 
neither of these latter key words are used in a 
request set, the table building function is per- 
formed. When AGGREGATE is given the value 'YES', 
table aggregation occurs and when SEARCH is set to 
'YES', the search function is accomplished. 

Separate divisions of this booklet are devoted to 
CENSLIST (population data base use) and HOUSLIST 
(housing data base functions). Examples given in 
the discussions on table building, table aggrega- 
tion, and search for both the CENSLIST and HOUSLIST 
procedures should fully explain the key word con- 
cept and use. As a further aid. Appendix D con- 
tains a job deck listing and an example of the out- 
put display for several of the examples. 


ERROR MESSAGES 

Every effort has been made to anticipate user errors 
which may be made when structuring a request set. 
CENSLIST and HOUSLIST scans each request set prior 
to processing to assure the existence of a proces- 
sable request. Request sets containing elements 
not recognized by the procedure will cause an error 
message to be returned to the user. Appendix E con- 
tains a listing of possible error messages along 
with the probably causes. 


*Key words - The user of CENSLIST and HOUSLIST com- 
municates the specifics of an information request 
by assigning values to certain key words. Illus- 
trations of the use of the several key words is 
contained in the major divisions of this manual 
entitled CENSLIST and HOUSLIST. 
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SUPPRESSED DATA 


On occasion, table building output will yield one 
or more negative one values. These are codes indi- 
cating suppressed data. Suppression occurred when 
samples were too small to insure the confidential 
nature of the census material. In the prpulation 
data base (CENSLIST) suppression is related to 
entire tables rather than individual items. Should 
an attempt be made to list one of these tables, a 
message indicating suppressed data will be printed. 
If an aggregation includes suppressed data, no sum- 
mation is made and the identification (county, CCD, 
record type) of the suppressed record is listed. 

The user can then resubmit the aggregation request 
set (if desired) without the suppressed record. 
Suppression in the housing data base (HOUSLIST) was 
handled differently by the Bureau of the Census, 
hence suppression is handled differently by HOUS- 
LIST as compared with CENSLIST. HOUSLIST suppres- 
sion is discussed in that section of this manual. 


Procedures for Activating 
the ARISCENS Software 
and Data Bases 


PROCEDURES FOR ACTIVATING THE ARISCENS 
SOFTWARE AND DATA BASES 


It Is expected that the ARISCENS portion of ARIS 
win be used only periodically; as opposed to 

Interest of cost control, the 
entire ARISCpS package (software and data) Is 
stored off-line on magnetic tape. This reel of 
tape (and others which serve as duplicate, backup 
units) contains five (5) files. These files and^ 
their functions are as follows: 


File 1 


The complete set of census data bases In 
an ISAM (Indexed sequential access method) 
storage structure. It Is keyed (ordered) 
on the values of the key words COUNTY. 

CCD, and RECORD-TYPE. This Is a very 
large file typically requiring approxl- 

cylinders (1900 tracks) of IBM 
3330 disc storage. This is a very large 
and expensive file to store on-line. 


File 2. This Is the second ISAM file and contains 
the OAULIst 4 table headings. These are 
keyed on the values of the key word TABLE. 

File 3. This is another ISAM file and contains the 
headings for the search function. They 
The values of the key word 
CHARACTERISTIC. 


File 4. 


This file contains 
ARISCENS software. 


a compiled copy of the 


File 5. This file contains a source (uncompiled) 

copy of the ARISCENS software. It Is used 
If the compiled procedures will not load 
because of an operating system change or 
Implementation on a different computer. 


File 6. This file contains the source program used 
to build File 1. 


File 7. This file contains the source proqram(s) 
used to build File 2. 


(Files 6 and 7 are Included for completeness.) 


Following are listings of job control language 
Instructions which are used to load the CENSLIST 
and HOUSLIST data bases and software Into the 
computer s on-line storage. This must be per- 
formed prior to running any of the processing 



jobs as Included in Appendix 0. The HOUSLIST 
loading operation is accomplished by: 


//L0AD4BP JOB {IED13.9R), *9 R PAT', REGION»96K 
/•JOBPARM TAPES=1, LINES* IK 
//ONE EXEC PGH-IEHPROGM 
//SYSPRINT DD SYSOUT-A 

//WHAT DD DISP-0LD,UNIT-DISK,V0L-SER-USER02 
//MORE DD DISP“OLD, UNIT-DISK, V0L-SER-USER03 
//LAST DD DISP-OLD, UNIT-3330 .VOL-SER-314159 
//SYSIN DD * 

SCRATCH DSNAME-IED13. ISAM4BH .VOL-3330-314159 .PURGE 
SCRATCH DSNAME-IED13.HEAD4BH.VOL-3330-USER02 .PURGE 
SCRATCH DSNAME-IED13 . CHEAD4BH , VOL-3330-USER02 .PURGE 
SCRATCH DSNAME-IED13 . HOUSLIB , VOL-333O-USER03 .PURGE 
UNCATLG DSNAME-IED13.ISAM4BH 
UNC/.TLG DSNAME-IED13.HEAD4BH 
UNCATLG DSNAME-IED13.CHEAD4BH 
UNCATLG DSNAME-IED13. HOUSLIB 

//* 

//TWO EXEC PGM-IEBISAM.PARM-LOAD.REGION-96K 
//SYSPRINT DD SYSOUT-A 

//SYSUTl DD DSNAME-IED13.BKUP4BH. DISP-OLD. DCB-BUFNO-6. 

// VOL- (. RETAIN, SER-TP05 15) .UNIT-TAPE, LABEL-(l.SL) 

//SYSUT2 DD DSNAME-IED13.ISAM4BH,DISP-(,CATLG) , 

// UNIT-SYSDA,VOL-SER-314159,SPACE-(CYL, (135,1)) , 

// LABEL-RETPD-7,DCB-(BUFNO-3,DSORG-IS) 

//* 

//THREE EXEC PGM-IEBISAM.PARM-LOAD.REGION-64K 
//SYSPRINT DD SYSOUT-A 

//SYSUTl DD DSNAME-IED13.BKUPHEAD,DISP-OLE,DCB-BUFNO-7, 

// VOL-(, RETAIN, REF-*. TWO. SYSUTl) ,LABEL-(2 ,SL) 

//SYSUT2 DD DSNAME-IED13.HEAD4BH,DISP-(,CATLG) , 

// UNIT-DISK, VOL-SER-USER02 ,SPACE-(CYL, (2) ) , 

// LABEL-EXPDT-79365 ,DCB- (BUFNO-1 1 .DSORG-IS) 

//* 

//FOUR EXEC PGM-IEBISAM,PARF^LOAD,REGION-64K 
//SYSPRINT DD SYSOUT-A 

//SYSUTl DD DSNAME-IED13.BKUPCHD. DISP-OLD. DCB-BUFNO-10. 

// VOL- (, RETAIN, REF-*. TWO. SYSUTl) ,LABEL-(3,SL) 

//SYSUT2 DD DSNAME-IED13.CHEAD4BH,DISP-(,CATLG), 

// UNIT-DISK, VOL-SER-USER02 ,SPACE-(CYL,(1)) , 

// LABEL-EXPDT-79365 ,DCB-(BUFNO-80, DSORG-IS) 

//* 

//FIVE EXEC PGJHIEFBR14 

//ALLOCATE DD DSNAME- IED13. HOUSLIB ,DISP-( .CATLG) , 

// UNIT-DISK, VOL-SER-USER03, 

// SPACE- (TRK, (5,1,1) ,RLSE) , LABEL-EXPDT-79365 

//* 

//SIX EXEC PGM-IEHMOVE 
//SYSPRINT DD SYSOITT-A 

//SYSUTl DD DISP-OLD, UNIT-DISK, VOL-SER-USEROl 

//SOURCE DD DISP-OLD, LABEL-(4, SL) ,VOL-(, RETAIN, REF-*.1W0. SYSUTl) , 
// DCB-(RECFM-FB.LRECL-80,BLKSIZE-800) 

//THERE DD DISP-OLD, UNIT-DISK, V0L-SER-USER03 
//SYSIN DD * 

COPY PDS-IED13.HLIBKUP,T(^3330-USER03, 

RENAME- IED13 .HOUSLIB .FROMDD-SOURCE , 

FROM- 3400- 3- ( TPO 5 1 5 , 4 ) 

// 


00000100 

00000200 

00000300 

00000400 

00000500 

00000600 

00000700 

00000800 

00000900 

00001000 

00001100 

00001200 

00001300 

00001400 

00001500 

00001600 

00001700 

00001800 

00001900 

00002000 

00002100 

00002200 

00002300 

00002400 

00002500 

00002600 

00002700 

00002800 

00002900 

00003000 

00003100 

00003200 

00003300 

00003400 

00003500 

00003600 

00003700 

00003800 

00003900 

00004000 

00004100 

00004200 

00004300 

00004400 

00004500 

00004600 

00004700 

00004800 

00004900 

00005000 

00005100 

00005200 

00005300 

X00005400 

X00005500 

00005600 

00005700 
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THE CENSLIST loading operation Is accompanied by 


//LOAD-'BH JOB (IED13.9R), '9 R PAT', REGI0N«96K 
/•JOBPARM TAPES=1,LINES=1K 
//ONE EXEC PGM-IEHPROGM 
//SYSPRINT DD SYSOUT-A 

//WHAT DD DISP-OLD, UNIT-DISK, V0L“SER“USER02 
Z/hORE DD DISP-OLD, UNIT-DISK, VOL-SER-USER03 
//LAST DD DISP-OLD, UNIT-3330 ,VOL-SER-314159 

//SYSIN DSNAME-IED13.ISAM4BP,V0L-3330-314159, PURGE 

UNCATLG DSNAME-IED13.ISAM4BP 

SCRATCH DSNAME-IED13. HEADINGS ,VOL-3330-USER02 ,t>URGl 
IMCATLG DSN AME- lEDl 3 • HEADINGS 

SCRATCH DSNAME-IED13 . CHARHEAD ,V0L-3330-USER02 ,PURG1 
IINCATLG DSN AME- lEDl 3. CHARHEAD 

SCRATCH DSNAME-IED13.CENSLIB,VOL-3330-USER03, PURGE 

UNCATLG DSNAME-IED13.CENSLIB 
//TWO EXEC PGM-IEBISAM,PARM-L0AD,REGI0N-96K 

//lYS0rrDD°DsS^ED13. ISAMBKUP , DISP-OLD ,DCB-BUFN^6, 

// VOL- (, RETAIN, SER-TP0743) ,UNIT-TAPE,L^EL-(1,SL) 

//SYSUT2 DD DSNAME-IED13.ISAM4BP,DISP-(,CATW) , 

/ / UWIT-SYSDA, VOL-SER-314159 , SPACE- (CYL , (95) ) , 

// lABEL-RETPL-7,DCB-(BUFNO-4,DSORG-IS) 

//THREE EXEC PGM-IEBISAM,PAIttHiOAD,REGION-96K 
//SYSPRINT DD SYSOUT-A 

//SYSUTl DD DSNAME-IED13.THEAD,DISP-0LD,DCB-BUEN0-7, 

/ / VOL-( , RETAIN, REF-*. TWO. SYSUTl) ,LABEL-(2 ,SL) 

//SYSUT2 DD DSNAME-IED13.HEADINGS,DIS^(.^LG). 

/ / UWIT-DISK ,V0L-SER-USER02 ,SPACE-(CYL,(2)) , 

/ / LABEL-EXPDT-79365 ,DCB- (BUFNO-11 ,DS0RG-IS) 


/ 


r 

r 



The job steps listed on preceding lines merely load 
and make ready CENSLIST and HOUSLIST for running 
user analysis jobs similar to those illustrated in 
Appendix D. The loading routines above do not gene 
rate tables or perform search tasks. The loading 
routines require approximately 30 seconds of com- 
puter time during a clock time period of less than 
20 to 30 minutes. The cost of loading on Auburn 
University's computer is approximately $2.00. The 
daily cost to store these files on-line is approxi- 
mately $10.00 per day (on the same computer). To 
aid in keeping costs minimal, run step one in the 
above jobs to remove all the datasets from disk 
(for convenience, these are repeated below). 


t 


//ONE EXEC PGM-IEHPROGM 
//SYSPRINT DD SYSOUT-A 

//WHAT DD DISP-OLD, UNIT-DISK, VOL-SER-USER02 
//MORE DD DISP-OLD, UNIT-DISK, VOL-SER-USER03 
//LAST DD DISP-OLD, UNIT-3330, VOL-SER-314159 
//SYSIN DD * 

SCRATCH DSNAME-IED13 , ISAM4BP , VOL-3330-314159 ,PURGE 
UNCATLG DSNAME-IED13.ISAM4BP 

SCRATCH DSN AME-IED13. HEADINGS ,VOL-3330-USER02 , PURGE 
UNCATLG DSNAME- IED13 . HEADINGS 

SCRATCH DSNAME- IED13.CHARHEAD,VOL-3330-USER02 , PURGE 
UNCATLG DSNAME-IED13.CHARHEAD 

SCRATCH DSNAME-IED13. CENSLIB ,VOL-3330-USER03 ,PURGE 
UNCATLG DSNAME-IED13. CENSLIB 



//* 


//* 

//ONE EXEC PGM-IEHPROGM 
//SYSPRINT DD SYSOUT-A 

//WHAT DD DISP-OLD, UNIT-DISK, VOL-SER-USER02 
//MORE DO DISP-OLD, UNIT-DISK, VOL-SER-USER03 
//LAST DD DISP-OLD, UNIT-3330 ,V01-SER-314 159 
//SYSIN DD * 

SCRATCH DSNAME-IED13 . ISAM4BH ,V0L-3330-314159 ,PURGE 
SCRATCH DSNAME-IED13 . HEAD4BH , VOL-333O-USER02 , PURGE 
SCRATCH DSNAME-IED13 . CHEAD4BH ,VOL-3330-USER02 , PURGE 
SCRATCH DSNAME-IED13.HOUSLIB .VOL-3330-USER03 ,PURGE 
UNCATLG DSNAME- IZD13. IS AM4BH 
UNCATLG DSNAME-IED13.HEAD4BH 
UNCATLG DSNAME-IED13.CHEAD4BH 
UNCATLG DSNAME- IED13.HOUSLIB 

//* 
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00000700 

00000800 
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PROCEDURES FOR USING CENSLIST 


TABLE BUILDING 

Each table Is uniquely identified by the RECORD_TYPE 
for a given CCD and COUNTY. The census data con- 
tains ninety-nine (99) different tables for each of 
RECORD TYPE'S one, two, three, and four. There are 
an addTtional twenty-eight (28) tables for REC0RD_ 
TYPE thirteen. A complete description of all record 
types is contained in the federal publication 
entitled, 1970 CENSUS USERS'GUIDE, under fourth 
count population. 

When attempting to build tables, four of the key- 
words must be given values. These keywords are 
COUNTY, CCD, RECORD_TYPE, and TABLES. The general 
form for providing values for the keywords is 


COUNTY « 'i {,j,k,...}' 
CCD - 'i {,j,k,...}' 
RECORD_TYPE« 'i {,j,k,...}' 
TABLES - 'i {,j,k,...}’ 


where i, j, k are integer numbers and brackets {) 
are indications of additional, but optional items. 
The brackets, themselves, are never included in the 
request set. All tables requested are generated 
for each COUNTY-CCD-RECORO_TYPE specified. 

For example, to produce table 17 for county number 
1 (Autauga), CCD number 5 and record type 1 (total 
population), one would specify a request set in the 
following manner: 


C0UNTY-'1' CCD='5‘ RECORD TYPE" ' 1 ' TABLES-'17'; 


This request set might be entered into a punched 
card as shown in figure 1. No specific format is 
required when punching a request set. The user may 
begin punchino in card column number 1 or in any 
other column (e.g., column number 7 as shown in 
figure 1). No specific spacing is required between 
the keywords and their values. One blank space has 
been used between the keyword/val ue sets in figure 
1 and other punched card illustrations in this sec- 
tion to Improve user readability. 


CO ^tY-M* CCP-‘5* RECdRP -TyPE-‘l* TWlLtS-M7M \ 

I III II I ■ ■■ ■ 

II I II I I ^ 
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44<444( 


I 
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Figure 1 


Other examples are: 

To produce tables 17 and 78 for the above county and 
CCD, one would code: 

COUNTY-'l' CCD»'5' RECORD_TYPE« ' 1 ' TABLES- ' 1 7 ,78 ' ; 

To produce table 69 for county 1, CCD's 5 and 10, 
and record type 2, one would code, 

C0UNTY-'1,1' CCD-'5,10' RECORO.TYPE- ' 2 ,2 ' TABLES- ' 69 ' ; 

Producing tables 1 thru ^ J^^hoRD^TYPE 2 
rfcord type 1 and county <3, CCD 10, 

5nS cSunty 39, CCD 15, kcORD.TYPE 4 would involve 

coding: 

C0UNTY.'1,43,39' CCO- ' 5 .1 0 .1 5' RECO«D_IYPE- ' 1 ,2 .4 ’ 

TABLES- ' 1 ,2 ,3 ,4 ,5,6,7 ,8 ,9 ,10 , 

F( 9 ur. 2 llluEtp.tes this lllus- 

H 7 es more than one punched card. While tne ii u 

tratiorin figure 2 does not contain 
JoJ the second card in the reguest set, if it would 
{"prSIe m Syste^'s uttlU, for 4 gl.e" analyst, 
the free format concept permits such. 
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Figure 2 


Since all keyword values (except AGGREGATE & SEARCH) 
are retained from one request set to another, the 
following request sets 

C0UNTY«*22.19' CCD=*'5.5* RECORD_TYPE« ‘ 4 ,4 ' 

TABLES* ' 6 ,7 ' ; TABLES* ’ 40 , 50 ' ; COUNT Y* ' 1 1 , 1 2 ' ; 

would produce: 

1. Tables 6 and 7 for county 22 census division 5 
record type 4, and tables 6 and 7 for county 19 
census division 5 record type 4. 

2 Tables 40 and 50 for county 22 census division 5 
record type 4, and tables 40 and 50 for county 
19 census division 5 record type 4. 

3. Tables 40 and 50 for county 11 census division 5 
record type 4, and tables 40 and 50 for county 12 
census division 5 record type 4. 


Two items in the job control language (JCL) cards 
may require change if a large quantity of different 
COUNTY-CCD-RECORD TYPE combinations are to be pro- 
duced from a single request set. That item is in 


1 



the second JCL card (the one which starts with 
//I4EXECI6 . . . ) . The items are REGION*yyyK and FARM* 
'MAX CCDS*xxx'. The normal region size is 128K and 
MAX_UCDS will usually be 50. If the number of com- 
binations of counties, CCDs and record types 
exceeds 50, MAX_CCDs must be Increased to equal 
or exceed the quantity of such combinations. The 
previous example of request sets contains only six 
(6) different combinations of C0UNTY-CCD-REC0RD_ 
TYPES. For each 250 or portion thereof increase 
in the value assigned MAX CCDs, also increase 
REGION by one (as from 12?K to 129K). 

TABLE AGGREGATION 

CENSLIST will provide information summaries by dis- 
playing standard tables which represent an aggrega- 
tion of data from two or more Census County Divi- 
sions. The only difference between request sets 
for table building and request sets for table aggre- 
gations is that in the latter case, the keyword 
AGGREGATE is given the value 'YES'. All other items 
are specified in the same manner, including the JCL 
considerations about REGION and MAX_CCDs. 

For example, to obtain table 16 aggregated across 
two of the CCDs in Autauga County, the request set 
would be: 

C0UNTY»'1,1‘ CCD=-'5,10' RECORD_TYPE» ' 1 , 1 ' 

TABLES-'16' AGGREGATE-'YES' ; 

Figure 3 contains punched card samples illustrating 
this use of CENSLIST. 


TABLES-’ i«* AGGREGATE- * YES *i 

II I III III I I 
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Figure 3 






For acquisition of tables 78,98,66, and 14, with 
each aggregated across two of the CCDs in Autauga 
County, the request set might be: 

C0UNTY»'1,T CCD-'5,10' RECORD_TYPE» ‘ 1 , 1 ' 

TABLES='78,98,66,14' AGGREGATE® 'YES'; 

Simultaneous acquisition of aggregated 

both of the above examples could be acquired by 

either specifying (see figure 4) 

C0UNTY*'1,1' CCD='5,10' RECORD _TYPE= ' 1 ,1 

TABLES* '16, 78, 98, 66,1 4' AGGREGATE* ' YES ' 

tables*' 16»78»98»66i 14* AGGREGATE** YES* J 
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Figure 4 


or by specifying (see figure 5) 

COUNTY*'!, 1' CC0*'5,10' REC0RD_TY PE* ' 1 , 1 
TABLES*'16' AGGREGATE='YES' 

TABLES- '78, 98, 66,1 4' AGGREGATE* ' YES ' ; 


TA11.C&-'78>98i 66> 14* Aa6R€6ftTt«* VtS 5 

[ II I III III I I 
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Figure 5 
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It should be noted the latter specification contains 
two request sets, whereas the former version con- 
tains only a single request set. When multiple 
request sets, each dealing with the aggregation 
function, are submitted for processing, the keyword 
AGGREGATE must be given the value 'YES' for each 
set . 


SEARCHES 

CENSLIST contains a searching P>^ocedure which per- 
mitrthe scanning of all census districts to find 
and list those having a specified P°P“] ® 
bute with a value greater than or equal to some 
desired target level . 

Three keywords: CHARACTERISTIC, LEVEL, and SEARCH 

the request set is structured: 

CHARACTERISTIC»'i,j' LE VEL» ' xxx . xx ' SEARCH-'YES' 

wherein the ratio of characteristic i 
istic j exceeding level xxx.xx is 

Iprdino whether a particular county-CCD fulfills 
tie sLrch. Appendix F contains a 





i;nE"»iLnT“’\nrorjh:Tured"cM^^ 

fication numbers would be used in place of the 
above j. 


An example search request set which would find all 
county-CCDs in which persons 18 years of age 
JoUnger comprise 50% or more of the total population 
would be coded (see figure 6): 


CHARACTERISTIC=-1,32- LEVEL=‘50- SEARCH* ' YES • ; 


' CHARACTERISTIC-* 1.32* LEVEL**50* SEARCH=* YES' i 
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PROCEDURES FOR USING HOUSLIST 


HOUSLIST procedures are very similar to those for 
CENSLIST outlined in an earlier section. The pri- 
mary difference, from the user standpoint, lies in 
the more close tibl e/record type arrangement of tne 
housing data base as compared with the Population 
data base. It will be recalled that ni nety-ni ne( 99 ) 
different population tables exist for each of four 
different record types. In the housing data base, 
groups of tables are tied to a single record type. 
The complete housing table/record type arrangement 
is: 


Record Type Tables 


1 

2 

7 

8 
9 

10 


1- 40 
41-107 
108-119 
120-130 
131-152 
153-200 


In both the population and housing data base, the 
table/record type structure is as established by 
the Bureau of the Census. For further information 
and a description of all record ^yP®f 
directed to the publication, 1970 CENSUS USERS 
GUIDE, under fourth count housing. 


All keywords introduced and explained in the sec 
tion on CENSLIST are identically applicable with 
HOUSLIST, For review, the keywords and their 
structures are: 


COUNTY « 
CCD 

RECORD_TYPE« 
TABLES “ 
AGGREGATE * 
CHARACTERISTIC > 
LEVEL » 


•1 I,j,k,...l' 
■i (,j,k,...)' 
•1 {,j,k,. 

•i I,j,k,...}' 
•YES' 

’1,j' 

' XXX . xx ' 


SEARCH 


•YES' 


where i, j, k are integer numbers, brackets {} are 
indications of additional, but optional items (the 
brackets, themselves, are never included in a 
request set), xxx.xx represents a percentage (as 
33.3% is punched 33.3 or 50.0% is punched 50 or 
50.0), and YES is used to cause a table aggrega- 
tion or a search to be performed. 


TABLE BUILDING 

To produce table 12 (count of occupied and vacant 
year-round housing units with all plumbing facili- 
ties by tenure and race of head by heating equip- 
ment) for county number 49 (Mobile), CCD number 40 
(Prichard), and record type number one (the only 
available), one would specify a request set in the 
following manner (also see figure 7): 

C0UNTY-'49' CCD-'40' RECORD TYPE* ' 1 ' TABLES*'12‘ 


50iJMTV»*49‘ CCD*’ 40' RECORD-TYPC** 1 ‘ TABLES*’ . 

I III II I ■ ■ 

iiiiinnnimmniniiinnMiinM|iM|MMn|iitiiiinnnii 

!32i|inlnmullujm**’l’*”l’’*”*********”*”*’****””*’' 

«4M44|44 4 4 4 |4 4 4 I4|I4|4 4 4 I 4 4 4 4 |4 4 4 4H4M 4 4 4 4 « 4 4 4 I«44» 4 4 4 « 4 4 4 < 4 4 4 - 

S5ssjbsm»ln|jjsis|ssl»i|ji»j|jislsl»l*““l“>‘ 

jnnnnninnntnnnininminntn nun nnjininnn 

h 4 IiiiiiiIIImImiiIImImiiiiiIiIuII*I*«" 

I m I n m n ! 1 1! > J » n J J m IM b In ! I! M n n ! n ! m n n M J 1 ! ! 9^ 4 > > 3 

Figure 7 

Other examples include: 

Acquisition of tables 12 and 19 for the same county 
and CCD would involve the coding: 

C0UNTY*’49' CCD*‘40 RECORD_TYPE* ' 1' TABLES* ‘ 1 2 , 1 9 ' ; 

Production of tables 12 and 19 for the same county 
and CCD's 40 and 45 would result from the coding: 

COUNTY* ' 49 , 49 ‘ CCD*'40,45’ RECORD_TYPE* ' 1 , 1 
TABLES*'12.19' ; 
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since all keyword values (except for AGGREGATE and 
SEARCH) are retained from one request set to the 
next, a large quantity of output can result from 
a small amount of request set coding (see CENSLIST) 
At the same time. Improper code sets can yield 
unwanted output. The "KISS" principal (Keep It 
Simple Son) is applicable by using a separate 
request set for each table desired and is recom- 
mended . 


TABLE AGGREGATION 

HOUSLIST table aggregation functions in a manner 
identical to CENSLIST except for the table/record 
type modifications discussed earlier. The change 
from table building to table aggregation is accom- 
plished by merely giving the value 'YES' to the 
keyword AGGREGATE. 


For example, to obtain tables 12 and 19 aggregated 
across the adjacent CCD's of Prichard and Saraland 
in Mobile County, one would structure the request 
set as follows (see also figure 8): 

C0UNTY*'49,49' CCD='40,45' RECORD_TYPE» ' 1 , 1 ' 
TABLES«'12' AGGREGATE* 'YES' ; 

C0UNTY*'49,49' CCD='40,45' RECORD_TYPE= ' 1 , 1 ' 
TABLES*'19' AGGREGATE*'YES' ; 

flGur^EGHTE** VES* ? 

Ill III I I . ■ . 

COUNTY** 49» 4'?* CCD=*40i45‘ RECORD-TYPE*’ 1 » 1 ' TABLES*' 19* 


aggregate** YE 
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Figure 8 





When aggregating various tables, the 
data suppression becomes a serious problem. When 
negative data (suppressed) is J 

tables are formed, but a message noting this fact s 
transmitted to the user in the output. When this is 
encountered, the user should obtain °^.^5pr 

individual tables forming the aggregation to deter- 
mine which sums are incorrect. This can readily be 
determined by noting which items contain ^!?® 
tive one value in the various separate tables. In 
general, because of the relative y small Spanish 
American population segment in Alabama, most data 
related to Spanish Americans has been suppressed 
by the Bureau of the Census. 


SEARCHES 

HOUSLIST and CENSLIST search procedures are essen- 
tially identical. The search characteristic codes 
differ and are listed in Appendix F. A sample 
HOUSLIST search request set to find all county- 
CCD's in which renter occupied housing lacking 
plumbing co.iiprise 80% or more of the renter occu- 
pied housing would be coded (see figure 9): 

CHARACTERISTIC«'47,2’ LEVEL*“'0' SEARCH* ’ YES ' ; 
-' CHARftCTE n ^ TlC=M7.2- LEVLL^^UO- 
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Appendix A 
Alabama CCD Maps 


1970 Ctnsus of Population; Number of Inhabitants 



ALABAMA 


County Map Finding Guide 


This list presents the reference 
coordinates and map section numbers 
for each county on the county sub- 
division maps on the following 
pages. 


COUNTY 

MAP 

SEC 

MAP 

REF 

COUNTY 

Autauga 

4 

G-6 

Dallas 

Baldwin 

3 

J-4 

Oe Kalb 

Barbour 

4 

H-9 

Elmore 

Bibb 

1 

F-5 

Escambia 

Blount 

2 

C-6 

Etowah 

Bullock 

4 

H-8 

Fayette 

Butler 

4 

1-6 

Franklin 

Calhoun 

2 

D-7 

Geneva 

Chambers 

4 

F-8 

Greene 

Cherokee 

2 

B-8 

Hale 

Chilton 

2 

F-6 

Henry 

Choctaw 

3 

H-2 

Houston 

Clarke 

3 

1-3 

Jackson 

Clay 

2 

m 

oo 

Jefferson 

Cleburne 

2 

D-8 

Lamar 

Coffee 

4 

1-7 

Lauderdale 

Colbert 

1 

A-3 

Lawrence 

Conecuh 

3 

1-5 

Lee 

Coosa 

2 

F-6 

Limestone 

Covington 

4 

J-6 

Lowndes 

Crenshaw 

4 

1-7 

Macon 

Cullman 

1 

C-5 

Madison 

Dale 

4 

1-8 
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MAP 

REF 

COUNTY 

MAP 

SEC 

MAP 

REF 

3 

G-5 

Marengo 

3 

G-3 

2 

A- 8 

Marion 

I 

C-3 

4 

G-7 

Marshall. 

2 

B-7 

3 

J-4 

Mobile 

3 

K-2 

2 

C-7 

Monroe 

3 

1-4 

1 

C-3 

Montgomery 

4 

G-7 

1 

B-3 

Morgan 

1 

B-5 

4 

J-7 

Perry 

1 

F-5 

1 

F-3 

Pickens 

1 

E-3 

1 

F-4 

Pike 

4 

1-7 

4 

1-9 

Randolph 

2 

E-8 

4 

J-9 

Russell 

< 

G-9 

2 

A-7 

St. Clair 

2 

D-6 

2 

0-6 

Shelby 

2 

E-6 

1 

C-3 

Sumter 

1 

F-3 

1 

A-3 

Talladega 

0 

c. 

0-7 

1 

A-5 

Tallapoosa 

4 

F-8 

4 

G-8 

Tuscaloosa 

1 

E-4 

1 

A-5 • 

Walker 

1 

C-4 

4 

H-6 

Washington 

3 

1-2 

4 

G-8 

Wilcox 

3 

H-4 

2 

A-6 

Winston 

1 

C-4 

1 
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Appendix B 
Tabie of CCD 
Codes and Names 


NOTE ( Appendi x B ) : 

The county numbers listed in the tables on the fol- 
lowing pages are not compatible with the ARISCENS 
data bases. Bureau of the Census county numbers 
are odd integers progressing in steps of two as 1, 

3, 5, 7, 9,... To convert the Bureau of the Census 
county numbers (for Alabama) to those used both in 
ARISCENS and the normal county numbers in State 
references and tables, add one to the Bureau of 
Census county number and divide the sum by two. ro 
example, the Bureau of the Census number for Jef- 
ferson County is 73. The ARISCENS county number 
would be 37 [(73 +l)/2]. Similarly, Mobile's 97 
converts to 49, etc. 

The Bureau of the Census county numbers are in 
ascending sequence corresponding to the alphabeti- 
cally ordered arrangement of the county names. The 
even numbers were skipped in order to permit space 
to insert any new counties which may be created. 


Geoaraphic Idanti ficati on Code Scheme : S^ut^, U.S 

Bureau of Census, Dept, of Commerce, 1972. 
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Appendix C 

Job Control Language 

(JCL) 
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EXPLANATION OF JOB CONTROL LANGUAGE (JCL) CARDS 


//JNAME|»JOB|6(IED13,9R) , 'NAME* ,REGION«128K 
/*J0BPARM|6TIME«00059,LINES»3K 


The two J0B cards are the first two cards In the program. 
They are used to Inform the system of which account 
should receive charges for paper and CPU time, as well as 
describing the attributes and limits pertaining to the 
job being run. In the above example JNAME is a name 
given to a job by the user. It should begin with a letter 
and range from one to eight alphanumeric characters in 
length. The character B represents a blank space (use 
the space bar), in parenthesis are the account number 
(IED13) and the return storage bin number (9R) where the 
program printout can be stored until retrieved. The name 
(NAME) of the programmer is placed in single quotes and 
followed by the REGION size for the program, the second 
card contains the time limit (TIME-00059) (TIME-mmmss. 
where mmm minutes and ss seconds must be specified) and 
the pages limit UINES-nK) (LINES-nK will yield n times 
1000 lines at 60 lines per page). 


//»EXECbPGM-CENSLIST,REGI0N-128K.PARM-'MAX_CCDS- 

XXX/ISASI2E(8lO* 


The main function ov the EXEC statement is to iden- 
tify the program to be executed or the catalogued 
procedure to be used. In the statement above PGM- 
CENSLIST specifies that the program named CENSL15T 
is to be executed. CENSLIST is found in a private 
library (a partitioned data set that stores programs 
not used sufficiently to warrant their inclusion in 
the system library). A priyate library is indicated 
as the storage place for CENSLIST by the DO statement 
immediately following the EXEC card. The characters 
REGION ■ specifies the amount of main 
for the program to execute, in this case, 128K bytes 
of main memory. This amount of memory will haye to 
be yaried in accordance with the maximum number of 
CCD's specified by PARM ■ 'MAX CCDS-XXX , where XXX 
is the number of CCD's to retrieve during a search. 
For example, if it was expected that s®''®"*'y- 
CCD's might fit the attributes to be covered by the 
search, this segment of the EXEC card would contain 
•MAX CCD-75' . 
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//STEPLIB|6DD)4DSNAME=1ED13.CENSLIB,DIS?»SHR 

The STEPLIBtiDD statement defines the private library 
to be used by the preceding EXEC card reference. 
OSNAME defines the location of the library. 
case, the library is found under the name of LENSLIB 
on the account number 1ED13, 'DISP'* 
data set's disposition. In this case, SHR indicat s 
that jobs that are executing concurrently within 
this job step may simultaneously use or share the 
data set. 

// I5AM4BPbDDbOSNAME»IE01 3. ISAM4BP ,0ISP*SHR 

//CHARMEADbDDbDSNAME* lEOl 3 . CHARHEAU , DI SP“SHR 
//HEA0IN6S|i00bDSNAME*IEDl 3.HEADINGS,0ISP*SHR 

The above three statements describe the data sets 
ISAM4BP,CHARHEAD, and HEADINGS which are referenced 
by the program described in the EXEC statement. 
ISAM4BP is the indexed sequential data base, xeyeo 
by COUNTY-CCD-RECORD-TYPE. CHARHEAD a file of 
headings for the search requests “LADINGS is 
file of headings for the tables. DCB*BUFN0-1 
describes the number of buffers to be assigned to 
the data control block. In the above three cases, 
one buffer is allocated. 

//SYSPRINT|6DD|6SYSOUT=»A 

The above statement indicates that output 
program executing in ttie EXEC statement is to pp 
on the printer (SYS0UT=A signifies the printer) 
unless otherwise specified. 


// INPUTbDDb* 

This statement indicates to the Program executing in 
the EXEC statement that data cards are immediate y 
following (indicated by'*'). A reference 
during execution of the program will cause these 
cards to be read. Punched cards containing request 
set keywords and values are placed at this point. 


// 

This card indicates to the system the end of the jnb 
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EXAMPLE USES OF CENSLIST 

The following deck of cards (also see figure 10) will 
produce the illustrated * output whic.i contains an 
example of table building, and example of table aggre- 
gation, and an example of a search: 

//BEH JOB ( lFDle,9R) ,' CENSLIST SAMPLE ', REG 1 0N= 1 28K 
/‘JOBPARM TIME=0010,LINES=3K 
// EXEC PGM=CENSLIST,FARM=' ISAS1ZE(8K) ■ ,REGI0N = 128< 
//STEPLIB DO DSNAME=1ED13.CENSLIB,DISP=SHR 
//HEADINGS DO DSNAME= I EDI 3 , HEAD I NGS , Cl SP = SHR 
//CHARHEAD DD DSNAME= I EDI 3 . CHARHEAD , D I SP = SHR 
//ISAM4BP DD DSNAME=IED1 3. ISAM4BP.DISP=SHR 
//SYSPRINT DD SYS0UT=A 
//INPUT DD * 

COUNTY^'l' CCD='5‘ RECORD TYPE* ' 1' TABLES='17‘; 
C0UNTY='1,1' CCD*'5,10' RFC0RD_TYPE= ' 1 , 1 ' 

TABLES*' 16' 

AGGREGATE*' YES' ; 

CHARACTERISTIC*' 1 ,32' LEVEL*'50' SEARCH* ' YES ' ; 

// 

TABLE 17 AUTAUGA COUNTY, CENSUS DIVISION 5, TOTAL 
POPULATION, PERSONS BY AGE AND SEX 


MALE 

FEMALE 

AGE 

109 

101 

UNDER 3 

60 

41 

3-4 

31 

56 

5 

40 

40 

6 

108 

1 09 

7-9 

164 

123 

10-13 

50 

15 

14 

23 

36 

1 5 

44 

57 

16 

28 

35 

17 

41 

12 

18 

14 

33 

19 

24 

29 

20 

1 7 

18 

21 

44 

42 

22-24 

62 

79 

25-29 

78 

83 

30-34 

44 

74 

35-39 

54 

60 

40-44 

84 

58 

45-49 

65 

66 

50-54 

60 

58 

55-59 

25 

40 

60-61 

1 5 

32 

62-64 

60 

66 

65-69 

25 

60 

70-74 

40 

34 

75 AND 
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TABLE 16 AS AN AGGREGATE OF THESE COUNTY-CCD-RECORD 
TYPES AUTAUGA - 5 - TOTAL POPULATION AUTAUGA - 10 

r total population aggregate $ income deficit between 

SPECIFIED POVERTY LEVEL AND TOTAL INCOME FOR FAMILIES 
AND UNRELATED INDIVIDUALS 


LESS THAN 
75% OF 
POVERTY 
LEVEL 
36424 
1 3550 


LESS THAN 
125% OF 
POVERTY 
LEVEL 
111585 
32880 


FAMILY 

UNRELATED INDIVIDUAL 


SEARCH FOR CCD'S IN WHICH PERSONS 18 YEARS OLD OR 
YOUNGER AS A PERCENT OF ALL PERSONS EXCEED 50.0% 


COUNTY 

BULLOCK 

DALLAS 

HALE 

LOWNDES 

SUMTER 


53.8% 

50.7% 

53.8% 

54.8% 

52.8% 


COUNTY 

DALLAS 

GREENE 

LOWNDES 

MACON 

TALLADEGA 


51 .4% 
50.2% 
52.2% 
53.1% 
51 .3% 


*In an effort to show the output on the size paper 
used in this manual, some liberties have been taken 
in rearranging the output information {e.g. two 
lines where only one is needed on the 
put). In addition, a standard set of DAULIST foot- 
notes is printed by CENSLIST. These have been 
omitted from this sample display. 
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Figure 10 
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EXAMPLE USES OF HOUSLIST 


The following deck of cards (also sec figure 11) will 
produce the illustrated output. The sample output 
contains an example of table building, an example of 
table aggregation, and an example of search: 

//BEH JOB (IED13,9R), 'HOUSLIST SAMPLE ' ,REGI0N«128K 
/♦JOBPARM TIME*00100,LINES«3K 
// EXEC PGM-HOUSLIST,PARM*' ISASIZE(8K) ' ,RE6I0N-128K 
//STEPLIB DO DSNAME»IED13.H0USLIB, DISP«SHR 
//HEADINGS DD DSNAME* I EDI 3 . HEAD4BH , DI SP»SHR 
//CHARHEAD DD DSNAME* I EDI 3 . CHEAD4BH , DI SP-SHR 
//ISAM4BH DD DSNAME*IED1 3. ISAM4BH ,DISP»SHR 
//SYSPRINT DD SYS0UT»A 
//INPUT DD * 

C0UNTY»'49' CCD='40' RECORD_TYPE= ' 1 ' TABLES«'35'; 
C0UNTY»'49,49‘ CCD-'40,45' record-type- ' 1 ,1 ' 
TABLES»'35' 

AGGREGATE-' YES'; 

CHARACTERISTIC-'47,2' LEVEL-'95' SEARCH- ' YES ' ; 

// 

TABLE 35 MOBILE COUNTY, CENSUS DIVISION 40, TOTAL 
POPULATION COUNT OF OCCUPIED AND VACANT YEAR-ROUND 
HOUSING UNITS BY OCCUPANCY/ VACNCY STATUS 

11729 OCCUPIED 

616 VACANT YEAR-ROUND: FOR RENT 

133 FOR SALE ONLY 

57 RENTED OR SOLD, NOT OCCUPIED 

34 FOR OCCASIONAL USE 

205 OTHER VACANT 

TABLE 35 AS AN AGGREGATE OF THESE COUNTY-CCD-RECORD 
TYPES MOBILE - 40-TOTAL POPULATION MOBILE - 45-TOTAL 
POPULATION COUNT OF OCCUPIED AND VACANT YEAR-ROUND 
HOUSING UNITS BY OCCUPANCY/ VACNCY STATUS 

15680 OCCUPIED 

669 VACANT YEAR-ROUND: FOR RENT 

164 FOR SALE ONLY 

73 RENTED OR SOLD, NOT OCCUPIED 

46 FOR OCCASIONAL USE 

267 OTHER VACANT 

SEARCH FOR CCD'S IN WHICH RENTER OCCUPIED LACKING 
PLUMBING AS A PERCENT OF RENTER OCCUPIED EXCEED 95.0* 

COUNTY CCD COUNTY CCD 

LOWNDES 10 96.0* MACON 30 1Cj.07 

COUNTY CCD 

WILCOX 5 95.5* 
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ERROR MESSAGES AND THEIR PROBABLE CAUSES 


1 . 


♦RECORD TYPE SPECIFIED DOES NOT EXIST FOR THIS 
CCD. OR CCD SPECIFIED DOES NOT EXIST IN COUNTY 
SPECIFIED. 


Cause: A table building or aggregating request 

either asked for a record type (e.g., negro 
population) which is not present for that par- 
ticular CCD, or the CCD code is out of the 
range of possT&le CCD's for a county. 

This error message is accompanied by one of the 
following, depending on whether the request was 
for 

Table Building: 

♦TABLE iii HAS BEEN OMITTED FOR CO'JNTY-CCD- 
RECORD-TYPE aaa-bbb-ccc. 
or Aggregating: 

♦COUNTY-CCD-RECORO-TYPE aaa-bbb-ccc OMITTED 
FROM THIS AGGREGATION 


2. ♦COUNTY-CCD-RECORO-TYPE aaa-bbb-ccc OMITTED 
FROM THIS AGGREGATION BECAUSE OF DATA SUP- 
PRESSION. 

Cause: If during an aggregate request, a table 

is encountered in which the data was suppressed, 
the table was left out of the aggregation. 

♦TABLE iii OMITTED BECAUSE OF DATA SUPPRESSION 

Cause: Same as above. See Census User's Guide 

for complete details on data suppression . 

2(a). *COUNTY-CCO-RECORD_TYPE aaa-bbb-ccc OF THIS 
AGGREGATION CONTAINS SUPPRESSED DATA. 


Cause: Some portion of the table for this 

county-ccd-record type is suppressed, but 
was included in the aggregation anyway. 

This means that any of the aggregated values 
might be in error. List the tables sepa- 
rately to find exactly where the suppression 
occurred. This message is particular to the 
housing program. 


3. TABLE iii DOES NOT EXIST FOR RECORD_TYPE jjj IN 
COUNTY-CCD aaa-bbb, IGNORED. 

Cause; Tables 1 - 99 exist for record-types 
1. 2. 3. 4 4. 

Tables 100 -► 127 exist for record-type 13 
If, for example, you ask for table 110 for record 
type 1, this message appears. 


4 . 


♦UNREAL COUNTY, CCD, RECORD_TYPE, CHARACTERISTIC, 
LEVEL OR TABLE NUMBER FOUND. REQUEST IGNORED. 

Cause: Could be caused by any number of things; 

In general, appears after checking Input data 
(request sets) for validity. Specifically, this 
message will appear If any of the following Is 
true : 

Any county >67 

record-type not equal 1 or 2 or 3 or 4 or 13 for 
population data; 1, 2, 7, 8, 9, 10 for 
housing data 

CCD not a multiple of five 

table number greater than 127 for population data; 
200 for housing data 


These two 
Items make up 
characteristic 


category less than or equal 0 
or category greater than 42, 
base less than or equal 0 or 
base greater than 42 

level less than 0 or level 
greater than 100 


MISCELLANEOUS SYSTEM ERRORS THAT MIGHT OCCUR: 


SYSTEM BOA or 804 

Cause: You've run out of memory space. 

region * parameter on job card. 


Increase 


SYSTEM 322 
Cause: 


SYSTEM 222 
Cause : 


You've run out of time, 
parameter on job card. 

You've run out of pages. 
» parameter on job card. 


Increase time * 


Increase lines 




card from your deck, 
correctness . 
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LIST OF CENSLIST SEARCH CHARACTERISTICS 

Character- 
istic No. 

/‘Data Items*/ Description 

1 Persons 18 Years Old or Younger 

2 Persons 19 to 44 Years Old 

3 Persons 45 to 64 Years Old 

4 Persons 65 Years or Older 

5 Persons from a Different State 

6 Persons Who work Outside County of 

Residence 

7 Persons With at Least 4 Years of 

High School 

8 Persons With at Least 4 Years of College 

9 Persons With Vocational Training 

10 Persons in Labor Force 

11 Perscr.; in Labor Force, Unemployed 

12 Professi ^al, Technical, or Kindred 

Worn-'s 

13 Craftsmen, Foremen, or Kindred Workers 

14 Operatives, Except Transport 

15 Service Workers, Except Private Household 

16 Professional, Technical, or Kindred 

Workers 

17 Craftsmen, Foremen, or Kindred Workers 

18 Operatives, Except Transport 

19 Service Workers, Except Private Household 

20 Persons Employed in Agriculture, Forestry, 

or Fisheries 

21 Persons Employed in Mining 

22 Persons Employed in Construction 

23 Persons Employed in Manufacturing 

24 Persons Employed in Transportation, 

Communications, or Utilities 

25 Persons Employed in Wholesale or Retail 

T rade 

26 Persons Employed in Finance, Insurance, 

or Real Estate 
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27 Persons Employed in Any Type of Service 

28 Persons Employed in Public Administration 

29 Families with Income Less than $3,000 

30 Families with Income Less than $7,000 

31 Families with Income Less than Poverty 

Level 


/‘Base Items*/ 

32 All Persons 

33 Persons 5 Years Old or Older 

34 Persons at Work During the Census Week 

35 Persons 25 Years Old or Older 

36 Persons 16 to 64 Years Old with Less than 

3 Years of College 

37 Persons 16 Years Old or Older 

38 Persons 16 Years Old or Older in Labor 

Force 

39 Employed Persons 16 Years Old or Older 

40 Employed Females 16 Years Old or Older 

41 All Families 

42 Aggregate $ Income? 


LIST OF HOUSLIST SEARCH CHARACTERISTICS 


Character- 
istic No. 

/‘Data Items*/ Description 

1 Owner Occupied 

2 Renter Occupied 

3 Negro Occupied 

4 Vacant For Sale 

5 Vacant for Rent 

6 Occupied Units in Structure Built in 

1939 or Before 

7 Vacant Units in Structure Built in 1939 

or Before 


8 

Occupied Units in Structure Built in 
1960 or After 

9 

Vacant Units in Structure Built in 1960 
or After 

10 

Occupied one Unit, Detached 

11 

Vacant one Unit, Detached 

12 

Occupied Mobile Homes 

13 

Occupied Units on Public Water System 
or Private Company 

14 

Occupied Units with Individual Well 

15 

Occupied Units on Public Sewer 

16 

Occupied Units with Septic Tank or 
Cesspool 

17 

Occupied Units with no Automobiles 

18 

Occupied Units with Central or Unit Air 
Conditioning 

19 

Occupied Units with Heating Fuel-Utility 
Gas 

20 

Occupied Units with Heating Fuel -Bottl ed , 
Tank, or LP 

21 

Occupied Units with Heating Fuel- 

Electricity 

22 

Owner Occupied with one or no Bedroom 

23 

Negro Owner Occupied with one or no 
Bedroom 

24 

Renter Occupied with one or no Bedroom 

25 

Negro Renter Occupied Units with one 
or no Bedroom 

26 

Vacant Units with one or no Bedroom 

27 

One Person Unit 

28 

Five or more Persons Unit 

29 

Negro Five or more Persons Units 

30 

Eight or more Persons Unit 

31 

Negro Eight or more Persons Units 

32 

Occupied Husband-Wife Family 65+ Years 
Old 

33 

Male/Female Primary Individual -- 65+ 
Years Old 

34 

Owner Occupied with 1.5 or more Persons/ 
Room 

35 

Renter Occupied with 1.5 or moi^e P^r- 
sons/Room 





I 


36 

Negro Occupied with 
Room 

1 .5 or 

more 

Persons/ 

37 

Owner Occupied with 

Val ue 

Under 

$5,000 

38 

Negro Owner Occupied 
$5,000 

with 

Value 

Under 

39 

Owner Occupied with 

Val ue 

Under 

$7,500 

40 

Negro Owner Occupied 
$7,500 

with 

Value 

Under 

41 

Renter Occupied with 

Gross 

Rent 

Under $40 


42 Negro Renter Occupied with Gross Rent 

Under $40 


43 Renter Occupied with Gross Rent Under $80 

44 Negro Renter Occupied with Gross Rent 

Under $80 

45 Owner Occupied Lacking Plumbing 

46 Negro Owner Occupied Lacking Plumbing 

47 Renter Occupied Lacking Plumbing 

48 Negro Renter Occupied Lacking Plumbing 

49 Occupied Lacking Plumbing with 1.5 or 

more Persons per Room 

50 Negro Occupied Lacking Plumbing with 1.5 

or more Persons/Room 

51 Owner Occupied with Income Under $3,000 

and Unit Valued Less than $5,000 

52 Negro Owner Occupied with Income Under 

$3,000 and Unit Value Less than $5,000 

53 Owner Occuoied with Income Under $3,000 

and Unit Valued Less than $10,000 

54 Negro Owner Occupied W/Income Under $3,000 

and Unit Valued Less than $10,000 

55 Renter Paying 25+ Percent of Income as 

Rent for Rents Under $40 

56 Negro Renter Paying 25+ Percent of Income 

as Rent for Rents Under $40 

57 Renter Paying 25+ Percent of Income as 

Rent for Rents Under $80 

58 Negro Renter Paying 25+ Percent of Income 

as Rent for Rents Under $80 

59 Occupied Lacking one or more Plumbing for 

Income Under $3,000 

60 Negro Occupied Lacking one or more 

Plumbing for Income Under $3,000 


57 



/♦Base Items*/ 

61 All Occupied Units 

62 All Units 

63 All Vacant Units 

64 Owner Occupied Units 

65 Negro Owner Occupied Units 

66 Renter Occupied Units 

67 Negro Renter Occupied Units 

68 Negro Occupied Units 


I 

I 


I 
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A PICTORIAL DESCRIPTION OF ARIS I USE 


ARIS user must first select type 
of dete needed to solve a problem. 



CENSLIST/HOUSLIST 

User requires information concerning 
census population data (CENSLIST) or 
bousing data (HOUSLIST). 


ARIS GRIO/POLYGON COMPUTER SOFTVARE 
User needs to manipulate geo- 
graphic data. 
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